R语言谁还不会批量读取和批量出图？以snp密度图为例

实验室小剧场

同桌：给我来一卦

我。。。我们是党员不搞封建迷信

同桌：你算的还少。

我：那是在进行科学预测，把握事物的发展规律，只是从咱们自己老祖宗的方法论去看待的问题，与马克思角度有着异曲同工之妙。

同桌：哦，那你给我从咱老祖宗的方法论，分析一下我对象长什么样子，在哪里，何时可以遇到。。。

我：好哒！

我让看看谁还不会批量读取和批量出图！！

library(CMplot)
#循环
for(i in c(1,101,201,301,401,501,601,701,801,901)){
mydata<-read.table(file=paste("top",i,".txt",sep = ""))#批量读取
CMplot(mydata, plot.type = "d", bin.size = 1e6,col = c("darkgreen", "yellow", "red"),file="jpg",file.name=paste("top",i,".jpg",sep = ""),dpi=300,file.output=TRUE, verbose=TRUE)#批量出图
}

 一生苦短，到老了什么都会忘记，能记得的寥寥，所以不要为难现在的自己哦！

该吃吃，该喝喝。