博文
R中批量读入文件--assign+paste函数
|||
假设我有一批文件需要读取，单个读入如下：
[AppleScript] 纯文本查看 复制代码
01 02 03 04 05 06 07 08 09 10 | d48=read.csv("48.FPKM_TPM.sorted",sep="t",row.names ="transcript_id") d49=read.csv("49.FPKM_TPM.sorted",sep="t",row.names ="transcript_id") #... d59=read.csv("59.FPKM_TPM.sorted",sep="t",row.names ="transcript_id") all(rownames(d48)==rownames(d51)) all=cbind(d48,d49,d50,d51,d52,d53,d54,d55,d56,d57,d58,d59) # 当使用write.table命令时，col.names=NA，那么第一行就会空出一个位置，就不会造成第一列左移 write.table(all,file="all_FPKM_TPM.txt",quote=F,sep ="t",col.names=NA) |
单个读入需要重复输入一批代码，而批量读入文件只需要for循环+assign函数+paste函数
[AppleScript] 纯文本查看 复制代码
1 2 3 4 5 6 7 8 | for(i in48:59) { assign(paste("d",i,sep=""),read.csv(paste(i,".FPKM_TPM.sorted",sep=""),sep ="t",row.names ="transcript_id")) } # 查看读入的文件 head(d48) head(d59) |
so easy~~~~~~~~~~ ^_^
https://blog.sciencenet.cn/blog-1160733-1063646.html
下一篇：基因表达芯片数据分析——Agilent
