如果空的地方用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
结果截图:
不知道是不是你想要的结果~
如果你能提供数据结构的话,我或许可以更加明确的提供方法!
储存原始数据后,将其在R中命名为test,运行以下数据就能得到你要的条形图了tp <- barplot(test$Length_distribution, names.arg=test$Sequence_size, las =2, ylim=c(0,30000),col="black")
text(tp, test$Length_distribution, labels =test$Length_distribution,pos=4,srt=90,offset=0)