在R中生成带标题的Excel表格并保留数据数值类型的方法

你这个问题我太熟悉了——用rbind把标题、空行和数据拼在一起确实会搞乱数据类型，因为R会强制把所有列转成同一类型（标题是字符，数值列就跟着变字符了）。给你推荐个更靠谱的方法，用openxlsx包来做，既能实现你要的Excel样式，又能完美保留数值类型：

步骤1：安装并加载openxlsx包 #

这个包专门用来处理Excel文件，支持单独写入文本标题和数据，不会破坏数据类型：

# 如果没安装过先安装
install.packages("openxlsx")
# 加载包
library(openxlsx)

步骤2：构造你的数据集 #

先把总支出和平均支出的数据整理成数据框，数值列保持数值类型：

# 总支出数据
total_expenses <- data.frame(
  Region = c("Reg1", "Reg2", "Reg3"),
  Jan_18 = c(32, 24, 15),
  Feb_18 = c(65, 45, 78),
  Mar_18 = c(56, 89, 23),
  stringsAsFactors = FALSE
)

# 平均支出数据
average_expenses <- data.frame(
  Region = c("Reg1", "Reg2", "Reg3"),
  Jan_18 = c(12, 13, 11),
  Feb_18 = c(14, 15, 14),
  Mar_18 = c(13, 14, 12),
  stringsAsFactors = FALSE
)

步骤3：写入Excel并设置格式 #

通过createWorkbook创建工作簿，然后分块写入标题、空行和数据，完全分开处理文本和数值：

# 创建空白工作簿
wb <- createWorkbook()

# 添加一个工作表
addWorksheet(wb, sheetName = "Expense Report")

# 自定义标题样式（可选，让标题更醒目）
title_style <- createStyle(fontSize = 14, textDecoration = "bold")

# ---------------------- 写入总支出部分 ----------------------
# 写入标题"Total Expenses"，从A1单元格开始
writeData(wb, sheet = "Expense Report", x = "Total Expenses", startRow = 1, startCol = 1, style = title_style)
# 空一行后写入总支出数据（从A3开始）
writeData(wb, sheet = "Expense Report", x = total_expenses, startRow = 3, startCol = 1)

# ---------------------- 写入平均支出部分 ----------------------
# 计算平均支出标题的起始行：总支出标题行+空行+数据行数 + 额外空行
total_section_rows <- 1 + 1 + nrow(total_expenses)  # 标题1行 + 空1行 + 数据行数
writeData(wb, sheet = "Expense Report", x = "Average Expenses", startRow = total_section_rows + 2, startCol = 1, style = title_style)
# 空一行后写入平均支出数据
writeData(wb, sheet = "Expense Report", x = average_expenses, startRow = total_section_rows + 4, startCol = 1)

# 保存Excel文件
saveWorkbook(wb, "Expense_Report.xlsx", overwrite = TRUE)

为什么这个方法能保留数值类型？ #

之前用rbind的问题在于：你把字符串标题、空行（一般是NA或空字符串）和数值数据框强行合并，R会把所有列统一转成字符型。而用openxlsx时，标题是单独写入的纯文本，数据框是直接按原有类型写入Excel的，两者完全独立，自然不会出现类型转换的问题。

打开生成的Excel文件，你会看到数值列仍然是数值格式，还能直接进行计算，完全符合你的需求。

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