AWS环境下的R语言：不使用xlsx包向已有Excel追加导出dataframe

1. 使用openxlsx包（推荐，无Java依赖） #

openxlsx是纯R实现的Excel操作包，无需Java环境，适配AWS这类受限环境，支持向已有Excel文件追加工作表或在指定工作表中追加数据。

示例代码： #

• 追加新工作表到已有文件：

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

# 加载已有Excel工作簿
wb <- loadWorkbook("existing_file.xlsx")

# 添加新工作表并写入第一个dataframe
addWorksheet(wb, sheetName = "新数据表1")
writeData(wb, sheet = "新数据表1", x = df1)

# 继续添加第二个工作表
addWorksheet(wb, sheetName = "新数据表2")
writeData(wb, sheet = "新数据表2", x = df2)

# 保存修改后的工作簿
saveWorkbook(wb, "existing_file.xlsx", overwrite = TRUE)

• 向已有工作表追加数据（不覆盖原有内容）：

wb <- loadWorkbook("existing_file.xlsx")
# 获取目标工作表的最后一行，从下一行开始写入新数据
last_row <- getLastRow(wb, sheet = "已有数据表") + 1
writeData(wb, sheet = "已有数据表", x = df_new, startRow = last_row)
saveWorkbook(wb, "existing_file.xlsx", overwrite = TRUE)

2. 使用readxl + writexl组合（适合小文件场景） #

若仅需追加工作表，可先读取已有文件的所有工作表，合并成列表后添加新dataframe，再重新写入文件（适合文件体积较小的情况）：

install.packages(c("readxl", "writexl"))
library(readxl)
library(writexl)

# 读取已有文件的全部工作表
existing_sheets <- excel_sheets("existing_file.xlsx")
sheet_list <- lapply(existing_sheets, function(sheet) read_excel("existing_file.xlsx", sheet = sheet))
names(sheet_list) <- existing_sheets

# 添加新的dataframe到工作表列表
sheet_list[["新增数据表"]] <- df_new

# 写入回原文件（包含所有原有内容+新表）
write_xlsx(sheet_list, "existing_file.xlsx")

3. 使用XLConnect包（需配置Java环境） #

若AWS环境可配置Java，XLConnect也支持追加操作：

install.packages("XLConnect")
library(XLConnect)

wb <- loadWorkbook("existing_file.xlsx")
createSheet(wb, name = "新数据表")
writeWorksheet(wb, data = df1, sheet = "新数据表")
saveWorkbook(wb)

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