美文网首页
for循环批量保存.CSV文件

for循环批量保存.CSV文件

作者: 养猪场小老板 | 来源:发表于2020-03-07 14:56 被阅读0次
#打开原始数据并命名位chushi
chushi=read.csv("shaoyang.csv")
View(chushi)
原始数据
dim(chushi)
[1] 25 36
#把第列名更为为patient+数字
rownames(chushi) <- paste0(rep("patient",times=25),1:25)
rownames(chushi) 
colnames(chushi)
#去掉第一列
gg=chushi[,-1]
#
View(gg)
#FOR循环
nm <- gg[,2]
for (i in 1:25)
{      do
      cod <- nm[i]
      data1=gg[i,]
      filename <- paste(cod, 'csv', sep='.')
      write.csv(data1,filename,row.names = F)
}

相关文章

网友评论

      本文标题:for循环批量保存.CSV文件

      本文链接:https://www.haomeiwen.com/subject/nnjcdhtx.html