如何求两矩阵均值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

a,b两矩阵求均值，空值取有效值

a         
1     2           
NA   4

b           
3     2           
NA   NA

想要得到结果
c
2     2
NA   4
该怎样做？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：有效值

1. seed(1233)
   
2. matrix_list<-replicate(2,matrix(sample(9),ncol=3),simplify = FALSE)
   
3. a<-matrix_list[[1]]
   
4. b<-matrix_list[[2]]
   
5. 
   
6. `%/%`<-function(x,y) {
   
7.   m<-(x+y)/2
   
8.   return(m)
   
9. }
   
10. 
    
11. matrix(mapply(`%/%`,a,b),ncol=ncol(a))

复制代码

1. a <- matrix(c(1,2,3,NA),2,2)
   
2. b <- matrix(c(2,3,NA,NA),2,2)
   
3. a
   
4. b
   
5. 
   
6. matrix(apply(cbind(as.vector(a),as.vector(b)),1,mean,na.rm=T),nrow(a),ncol(a))

复制代码

转成向量，然后生成两列矩阵，对矩阵行求均值，利用mean里的na.rm=TRUE参数设置即可，最后再将向量变成矩阵即可。

1. a <- matrix(c(1, NA, 2, 4), 2)
   
2. b <- matrix(c(3, NA, 2, NA), 2)
   
3. 
   
4. apply(array(c(a, b), dim = c(dim(a), 2)), 1:2, mean, na.rm = TRUE)

复制代码