问题描述
我想导出一些我通过 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]),:
unused arguments (sheet = !!paste(carriers[i]),excel = "flights_data.xlsx")
解决方法
您收到错误,因为 sheet
和 excel
不是 write_xlsx
中的参数。要将多个工作表写入单个 xlsx,您需要先将它们全部放入命名列表中,然后将该列表提供给 write_xlsx
。
library(nycflights13)
library(writexl)
library(tidyverse)
carriers <- c( "UA","AA","B6","DL")
使用地图(来自 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)
,
subset
、aggregate
、split
和写:
carriers <- c( "UA","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')