将数据框写入多个excel文件

Question

我有以下形式的数据框：

    name_1 name_2 col_1 col_2 col_3
 [1,] a     d      1     4     7  
 [2,] b     e      2     5     8  
 [3,] c     f      3     6     9  

我想选择列 name_2 与列 1,2 和 3 中的每一列，并将它们写入 3 个不同工作表中的一个 excel 文件中。

换句话说，我想在我的 excel 文件的第一张表中有列“name_2”和“col_1”，在第二张表中有列“name_2”和“col_2”，在第三张表中有列“name_2”和“col_3” .

我正在使用这个for循环如下

for(i in 2:5){
  df <- data.frame(my file)
  df <- df[,c(2,i+1)]
  write.xlsx(x = df, file = "/pathtofolder/excel.xlsx", sheetName = "column_name",append=TRUE, row.names = T, col.names = T)
}

但是最终的 excel 文件被最后一个 df 覆盖了。

你知道我该怎么做吗？

谢谢

Answer 1

试试这个：

library(openxlsx)

wb <- createWorkbook("/pathtofolder/excel.xlsx")

for(i in 2:4){
  addWorksheet(wb, sheetName = colnames(df)[i+1])
  writeData(wb = wb, sheet = colnames(df)[i+1], x = df[,c(2,i+1)], colNames = F)
}

saveWorkbook(wb,"/pathtofolder/excel.xlsx", overwrite = T)

如果 Excel 文件已存在，请使用 loadWorkbook 而不是 createWorkbook