r-将表中的xlsx文件导出为单独的筛选列

Question

我有一个数据集df

aa1  bb1  ccc
aa2  bb2  ccc
aa3  bb3  ddd
aa4  bb4  ddd
aa5  bb5  eee

我想导出为xlsx文件，每个文件都单独过滤列

write.xlsx(df, 'files(ccc,ddd,eee,...).xlsx')

ccc.xlsx 的输出

aa1  bb1  ccc
aa2  bb2  ccc

ddd.xlsx 的输出

aa3  bb3  ddd
aa4  bb4  ddd

eee.xls 的输出

aa5  bb5  eee

感谢

Answer 1

类似的东西应该会起作用：

files <- unique(df$V3) # Or manually files <- c("ccc", "ddd", "eee")
for (f in files) {
write.xlsx(df[df$V3 == f, ], paste0(f, ".xlsx"))
}

数据

df <- data.frame(
V1 = c("aa1", "aa2", "aa3", "aa4", "aa5"), 
V2 = c("bb1", "bb2", "bb3", "bb4", "bb5"), 
V3 = c("ccc", "ccc", "ddd", "ddd", "eee")
)