如何在单个Excel多工作表输出多表格及R代码报错解决

一、先修正原始数据框的语法错误 #

你提供的df存在几处语法问题，直接运行会报错，先修正如下：

df <- data.frame(
  subgroup = c(1,1,1,1,1,1,1,1,2,2,2,2,3,3,3,3),
  group_num = c(2,2,5,5,10,21,18,17,16,22,20,25,21,30,29,20),
  state = c("NJ","NJ","NJ","VT","VT","VT","VT","DC","DC","DC","DC","IL","IL","IL","IL"),
  date = as.Date(c("2010-01-01","2010-01-01","2010-01-01","2010-01-01","2010-01-02","2010-01-02","2010-01-02","2010-01-02","2010-02-03","2010-02-03","2010-02-03","2010-02-03","2010-03-05","2010-03-05","2010-03-05","2010-03-05")),
  value = c(12,7,6,9,15,7,6,9,18,5,6,3,20,5,5,6)
)

修正点说明：

• group_num用c()包裹数值（原代码用括号会报错）
• 州名NJ/VT等需加引号转为字符型
• 日期用as.Date()转为日期类型，避免被解析为数值运算

二、解决分Sheet输出的核心问题 #

1. 错误原因解析 #

• 用!!sym(x)报错：sym(x)会把数值x解析为变量名（比如把2当成名为2的变量），但你的环境中不存在该变量，因此触发“object '2' not found”错误。直接用group_num == x即可正确匹配数值。
• 仅保留最后一个Sheet：默认write.xlsx的append=FALSE，每次写入都会覆盖整个文件，因此最后只剩最后一次写入的工作表，需设置append=TRUE实现追加。

2. 正确分Sheet输出代码 #

推荐使用openxlsx包（无需Java依赖，比xlsx更轻量）：

library(dplyr)
library(purrr)
library(openxlsx)

# 定义输出路径（替换为你的实际路径）
test <- "./"
output_file <- file.path(test, "TEST.xlsx")

# 先删除已存在的文件，避免旧内容残留
if (file.exists(output_file)) file.remove(output_file)

# 遍历每个唯一group_num，写入独立工作表
unique(df$group_num) %>%
  walk(function(x) {
    filtered_data <- df %>% filter(group_num == x)
    # 追加工作表，将数值转为字符作为表名
    write.xlsx(filtered_data, file = output_file, sheetName = as.character(x), append = TRUE)
  })

• 用walk代替map：仅执行写入操作，无需返回结果，更高效。
• as.character(x)：避免Excel工作表名出现数值格式的异常问题。

三、如何添加更多表格到同一个Excel #

1. 追加汇总表 #

在分Sheet输出后，可直接追加汇总类表格：

# 生成group_num的汇总统计
summary_df <- df %>%
  group_by(group_num) %>%
  summarise(
    数据行数 = n(),
    value平均值 = mean(value),
    value最大值 = max(value)
  ) %>%
  ungroup()

# 追加到Excel
write.xlsx(summary_df, file = output_file, sheetName = "分组汇总表", append = TRUE)

2. 为每个分组添加关联表格 #

如果需要为每个group_num同时写入详情表和统计表，可修改遍历逻辑：

unique(df$group_num) %>%
  walk(function(x) {
    filtered_data <- df %>% filter(group_num == x)
    # 写入详情表
    write.xlsx(filtered_data, file = output_file, sheetName = paste0("详情_", x), append = TRUE)
    # 写入该分组的统计表格
    group_stat <- filtered_data %>%
      summarise(
        value最小值 = min(value),
        value平均值 = mean(value),
        state唯一值 = paste(unique(state), collapse = ",")
      )
    write.xlsx(group_stat, file = output_file, sheetName = paste0("统计_", x), append = TRUE)
  })

内容的提问来源于stack exchange，提问作者FloriaT