如果有人在其他地方被问过但我找不到答案,请道歉。
我正在尝试使用colMeans和rowMeans计算我创建的矩阵的平均值。平均值是我想要填充矩阵的值,并使用向量
设置行和列目前我的代码如下:
A = matrix(ncol = (14), # number of columns in matrix
nrow = (10), # number of rows in matrix
colMeans(A, na.rm = FALSE, dims = colnames(A)),
rowMeans(A, na.rm = FALSE, dims = rownames(A)),
byrow = TRUE)
colnames(A) c("2","4","6","8","10","12","14","16","18","20","22","24","26","28")
rownames(A) <- c("10","20","30","40","50","60","70","80","90","100")
A
运行此操作将返回具有NA值的矩阵。
预期输出将是如下矩阵,其中NA值由列和行号的平均值替换。
例如,第一个交叉点将等于6,即2 + 10/2
2 4 6 8 10 12 14 16 18 20 22 24 26 28
10 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
20 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
30 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
40 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
50 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
60 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
70 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
80 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
90 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
100 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
答案 0 :(得分:1)
这基本上是你想要的outer
功能。请注意t
转换矩阵,使其按照您在上面指定的正确方向进行转换。它也可以只是outer(B,A, fn)
A<-seq(2,28,2)
B<-seq(10,100,10)
fn<-function(A,B)(A+B)/2
t(outer(A,B, fn))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
[1,] 6 7 8 9 10 11 12 13 14 15 16 17 18 19
[2,] 11 12 13 14 15 16 17 18 19 20 21 22 23 24
[3,] 16 17 18 19 20 21 22 23 24 25 26 27 28 29
[4,] 21 22 23 24 25 26 27 28 29 30 31 32 33 34
[5,] 26 27 28 29 30 31 32 33 34 35 36 37 38 39
[6,] 31 32 33 34 35 36 37 38 39 40 41 42 43 44
[7,] 36 37 38 39 40 41 42 43 44 45 46 47 48 49
[8,] 41 42 43 44 45 46 47 48 49 50 51 52 53 54
[9,] 46 47 48 49 50 51 52 53 54 55 56 57 58 59
[10,] 51 52 53 54 55 56 57 58 59 60 61 62 63 64