在for循环中使用write_xlsx将数据帧导出到多个工作表中

Question

我想导出一些我通过for循环创建的数据帧。这些文件应导出到同一文件中的不同Excel工作表。导出时，我希望每个工作表都有一个不同的名称。例如，下面示例中的工作表名称应该来自字符矢量carriers。

我不能使用xlsx包，因为它不能在我的R上运行。我已经尝试使用writexl::write_xlsx函数，但是我不能使它工作。这里有一个简单的例子来重现我的问题：

library(nycflights13)
library(writexl)

carriers <- c( "UA", "AA", "B6", "DL")

for(i in 1:length(carriers)){
dframe_flt <- flights %>% filter(carrier == carriers[i]) %>% summarize(distance_m = mean(distance))
write_xlsx(dframe, sheet = !! paste(carriers[i]), excel = "flights_data.xlsx", col_names = TRUE)
}

它会产生以下错误：

Error in write_xlsx(dframe, sheet = !!paste(carriers[i]), excel = "flights_data.xlsx",  : 
  unused arguments (sheet = !!paste(carriers[i]), excel = "flights_data.xlsx")

如何修复此错误？

Answer 1

您会收到错误，因为sheet和excel不是write_xlsx中的参数。要将多个工作表写入单个xlsx，您需要首先将它们全部放入命名列表中，然后将该列表提供给write_xlsx。

library(nycflights13)
library(writexl)
library(tidyverse)
carriers <- c( "UA", "AA", "B6", "DL")

使用map (来自tidyr)创建列表：

output <- map(set_names(carriers),function(cr){
  dframe_flt <- flights %>% 
    filter(carrier == cr) %>% 
    summarize(distance_m = mean(distance))
})

写入xlsx：

write_xlsx(output, path = "flights_data.xlsx", col_names = TRUE)

Answer 2

subset、aggregate、split和write：

carriers <- c( "UA", "AA", "B6", "DL")
data <- subset(flights, carrier %in% carriers)
data <- aggregate(distance~carrier, data, mean, na.rm = TRUE)
writexl::write_xlsx(split(data, data$carrier), 'data.xlsx')