我在R中创建了一个非常大的数据框,我想输出许多子集并将它们保存为csvs。但是,我只想保留列的子集(即bin和volume)。考虑到我正在运行需要使用od字段的循环,最简单的方法是什么?
#create data frame
od <-c("520_513", "520_513", "520_513", "520_513", "520_513",
"517_620", "517_620", "517_620", "517_620", "517_620")
bin <-c(1,2,3,4,5,1,2,3,4,5)
volume<-c(1,0,4,5,6,4,4,5,6,6)
df <-data.frame(od, bin, volume)
df1 <-split(df,df$od)
#output csvs
df1 <-for(n in names(df1))
write.table(df1[[n]],
row.names=F,
col.names=F,
sep=",",
file=paste( n,".csv"))
这是我为517_620获得的输出:
od bin volume
--------------------------------
517_620 1 4
517_620 2 4
517_620 3 5
517_620 4 6
517_620 5 6
但我想要这个:
bin volume
--------------------
1 4
2 4
3 5
4 6
5 6
谢谢!
答案 0 :(得分:0)
假设你真的想要逗号分隔的文件而不是你所说明的空白分隔,那么为你的for
循环做几个mod:
for(n in names(df1)) # the assignment would destroy the df1 object
write.table(df1[[n]][ , 2:3], # use only cols 2 and 3
row.names=F,
col.names=F,
sep=",",
file=paste0( n,".csv")) # change to paste0 to avoid spaces