从R创建excel数据透视表

# 安装和加载openxlsx包
install.packages("openxlsx")
library(openxlsx)

# 创建一个Excel文件
wb <- createWorkbook()

# 创建一个工作表
addWorksheet(wb, "数据")

# 向工作表中添加数据
writeData(wb, "数据", mtcars)

# 创建数据透视表
addWorksheet(wb, "透视表")
pivotTable <- createTable(wb, "数据", include.col.names = TRUE)
addTable(wb, "透视表", pivotTable)

# 保存Excel文件
saveWorkbook(wb, "数据透视表.xlsx", overwrite = TRUE)