如果空的地方用NA 表示的话,那么就可以用如下编码实现
假设 第一组数据是 a1 第二组数据是a2, 他们的行数是一致的!
index<- is.na(a1)a1[index] <- a2[index]
# here is a example
a1<-c(1,NA,3,NA,5,6,NA,8,9,10)
a1
a2<- 1:10
a2
length(a1)
length(a2)
index<-is.na(a1)
a1[index]<-a2[index]
a1
结果截图:
不知道是不是你想要的结果~
如果你能提供数据结构的话,我或许可以更加明确的提供方法!
画热图中耽误时间较久的部分
https://www.jianshu.com/p/db53f7463d3f?open_source=weibo_search
如下三个数据框
创建一个空list,利用get()将所有数据框写入,形成一个2维的list,然后利用do.call()进行合并
实际中,我用for(i in length(vector)) {} 结果都只有最后一次循环的结果。 改成for(i in c(1:7))) {}
https://www.jianshu.com/p/fd60374d9577?utm_campaign=hugo&utm_medium=reader_share&utm_content=note&utm_source=weixin-friends
数据框就是向量按列组合