setwd()
#建立一个空向量
x_merge=NULL
i<-list.files()
for(n in i){x=read.delim(n,col.names=c("ID",substr(n,1,9))) #样本名取前9位,便于后边更换样本吗
if(is.null(x_merge)){x_merge=x
}
else{x_merge=merge(x_merge,x,by="ID")}
}
setwd()
#建立一个空向量
x_merge=NULL
i<-list.files()
for(n in i){x=read.delim(n,col.names=c("ID",substr(n,1,9))) #样本名取前9位,便于后边更换样本吗
if(is.null(x_merge)){x_merge=x
}
else{x_merge=merge(x_merge,x,by="ID")}
}
本文标题:2020-01-03小白新手 将所有文档里面的数据框合并到一个数
本文链接:https://www.haomeiwen.com/subject/oaoaoctx.html
网友评论