如何在R中基于dataframe按人员批量导出独立Excel工作簿

当然有合适的工具！在R里，openxlsx包就是处理这类需求的绝佳选择——它不仅能自动按人员拆分数据并生成独立的Excel工作簿，还能轻松设置各种格式（比如表头加粗、货币/日期格式），完全不用手动一个个创建文件。

下面直接给你针对模拟数据的完整实现代码，带详细注释：

# 安装并加载所需包（第一次运行需要安装）
install.packages("openxlsx")
library(openxlsx)
library(tibble)

# 你的模拟数据（额外加了金额和日期列，方便演示格式设置）
df <- tibble(
  Deal = c("Deal A", "Deal B", "Deal C", "Deal D", "Deal E", "Deal F", "Deal G", "Deal H"),
  Person = c("john", "henry", "max", "felix", "henry", "john", "max", "max"),
  Amount = c(1500, 2300, 800, 4200, 1900, 3100, 1200, 2700), # 模拟交易金额
  Date = as.Date(c("2024-01-05", "2024-01-10", "2024-01-12", "2024-01-15", 
                   "2024-01-18", "2024-01-20", "2024-01-22", "2024-01-25")) # 模拟交易日期
)

# 先定义需要的格式样式
## 表头样式：加粗、居中对齐、浅灰色背景
header_style <- createStyle(
  textDecoration = "bold",
  halign = "center",
  fgFill = "#D3D3D3"
)

## 货币格式：带$符号、保留两位小数
currency_style <- createStyle(
  numFmt = "$#,##0.00"
)

## 日期格式：YYYY-MM-DD标准格式
date_style <- createStyle(
  numFmt = "yyyy-mm-dd"
)

# 按Person列拆分数据，得到一个列表，每个元素对应一个人的交易记录
split_df <- split(df, df$Person)

# 循环遍历每个人员的数据集，生成独立Excel
for (person_name in names(split_df)) {
  # 创建一个新的工作簿
  wb <- createWorkbook()
  # 添加一个名为"交易记录"的工作表
  addWorksheet(wb, sheetName = "交易记录")
  
  # 将当前人员的数据写入工作表（从第1行第1列开始）
  writeData(wb, sheet = "交易记录", x = split_df[[person_name]], startRow = 1, startCol = 1)
  
  # 给表头（第1行）应用样式
  addStyle(wb, sheet = "交易记录", style = header_style, rows = 1, cols = 1:ncol(split_df[[person_name]]), gridExpand = TRUE)
  
  # 给金额列（第3列）应用货币格式（从第2行开始，因为第1行是表头）
  addStyle(wb, sheet = "交易记录", style = currency_style, rows = 2:(nrow(split_df[[person_name]]) + 1), cols = 3, gridExpand = TRUE)
  
  # 给日期列（第4列）应用日期格式
  addStyle(wb, sheet = "交易记录", style = date_style, rows = 2:(nrow(split_df[[person_name]]) + 1), cols = 4, gridExpand = TRUE)
  
  # 自动调整列宽，适配内容
  setColWidths(wb, sheet = "交易记录", cols = 1:ncol(split_df[[person_name]]), widths = "auto")
  
  # 保存工作簿，文件名用人员名字命名（比如john_交易记录.xlsx）
  saveWorkbook(wb, file = paste0(person_name, "_交易记录.xlsx"), overwrite = TRUE)
}

代码说明： #

• 运行这段代码后，你会得到4个以人员名字命名的Excel文件，每个文件里只有对应人员的交易数据。
• 格式设置部分：表头会变成加粗居中的灰色背景，金额列显示为$1,500.00这种格式，日期列显示为标准的年-月-日格式。
• 如果你的真实数据里列的位置不同，只需要调整cols参数的数值（比如金额列是第5列，就把cols = 3改成cols = 5）。
• openxlsx不需要依赖Java环境，比传统的xlsx包更轻便，处理大量文件时速度也更快。

内容的提问来源于stack exchange，提问作者Alex S. Sandoval