矩阵删除缺失值后想将空白位置补回去

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

因为求逆将原有的空值删除掉了，现在希望把删除掉的恢复回去应该如何做呢？
以下是程序，现得到的矩阵c是2*3的，希望将矩阵c变成5*3的。
a=matrix(,nrow=5,ncol=3)
a[1,]=c(1,2,3)
a[4,]=c(2,3,6)
a[5,2]=4
b=a[complete.cases(a),]
c=ginv(b)
       
希望得到如下样子的c应该怎么写程序呢？
        V1        V2        V3        V4        V5
1        -0.3        0        0        0.2        0
2        2        0        0        -1        0
3        -0.9        0        0        0.6        0

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：缺失值 Complete matrix cases comp R语言

接着运行下面的代码，试试看：

1. ## 找出存在缺失值的行，因为后面要补齐对应的列
   
2. index <- which(is.na(rowSums(a)))
   
3. # 将可逆矩阵重新排的列，搞出来
   
4. index2 <- c(setdiff(1:nrow(a),index),index)
   
5. ## 找到新的矩阵
   
6. zz <- cbind(c,matrix(0,nrow=ncol(a),ncol=length(index)) )
   
7. colnames(zz) <- index2
   
8. ## 通过改变列名来实现数据重新排列
   
9. zz[,order(colnames(zz))]

复制代码