如何用R设置Excel数据透视表字段并导出格式化透视表？

一、实现Excel数据透视表的R包推荐 #

1. openxlsx #

这是当前最实用的Excel操作包之一，支持直接创建Excel原生数据透视表，还能自定义字段布局、内置样式格式。示例代码：

library(openxlsx)

# 构造示例数据
df <- data.frame(
  地区 = rep(c("北京", "上海", "广州"), each=4),
  品类 = rep(c("电子产品", "服饰"), 6),
  销售额 = runif(12, 1000, 5000)
)

# 创建工作簿并写入数据源
wb <- createWorkbook()
addWorksheet(wb, "数据源")
writeData(wb, "数据源", df)

# 添加数据透视表并设置格式
addWorksheet(wb, "透视表")
pivotTable(
  wb, sheet = "透视表",
  data = df,
  rows = "地区", cols = "品类", values = "销售额",
  fun = "SUM", # 聚合方式
  style = "PivotStyleMedium9" # 内置透视表样式
)

# 保存文件
saveWorkbook(wb, "带格式透视表.xlsx", overwrite = TRUE)

2. XLConnect #

适合需要兼容旧版Excel的场景，同样支持创建数据透视表，但依赖Java环境，配置稍繁琐。

二、复用Excel预制透视表模板 #

可以通过R读取已设置好布局和格式的Excel透视表模板，替换数据源后导出新文件，以openxlsx为例的实现步骤：

library(openxlsx)

# 加载预制透视表模板
wb <- loadWorkbook("透视表模板.xlsx")

# 准备新数据源（需与模板数据源字段名完全匹配）
new_df <- data.frame(
  地区 = rep(c("深圳", "杭州", "成都"), each=4),
  品类 = rep(c("电子产品", "服饰"), 6),
  销售额 = runif(12, 800, 6000)
)

# 替换模板中的数据源工作表
writeData(wb, "数据源", new_df, overwrite = TRUE)

# 刷新透视表关联数据
refreshPivotTables(wb)

# 保存为新文件
saveWorkbook(wb, "更新后透视表.xlsx", overwrite = TRUE)

注意：模板中的透视表必须绑定到指定的数据源工作表，且新数据的字段名需与模板完全一致，否则可能导致透视表刷新失败。

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