r语言将3行3列的数据按列求平均数

先把A、B的列宽设置好，用格式刷把其它列也刷一下，如果你的一页可以打印47行（是其它的数，就把公式里的47改一下）
在C1里写公式：
=INDIRECT(CHAR(65+MOD(COLUMN(B1),2))&(ROW(A1)+INT(COLUMN(B1)/2)*47))
按住C1的填充柄将公式右拖复制，再按住填充柄下拖复制。
选定打印区域，打印。
函数说明：
CHAR(65+MOD(COLUMN(B1),2)) 生成字符串 "A" 或 "B"（偶数列为"A"奇数列为"B"）。
(ROW(A1)+INT(COLUMN(B1)/2)*47 生成相应的行号。
INDIRECT() 生成字符串的引用。

矩阵的行和、列和、行平均与列平均
在R中很容易求得一个矩阵的各行的和、平均数与列的和、平均数，例如：
> A
[,1] [,2] [,3] [,4]
[1,] 1 4 7 10
[2,] 2 5 8 11
[3,] 3 6 9 12
> rowSums(A)
[1] 22 26 30
> rowMeans(A)
[1] 5.5 6.5 7.5
> colSums(A)
[1] 6 15 24 33
> colMeans(A)
[1] 2 5 8 11