R语言使用openxlsx向已有Excel工作表插入新行的方法咨询

• 核心需求：在现有Excel工作表顶部插入1行用于添加列标题，插入操作不能覆盖原有行的内容
• 已尝试方案的局限：
  • openxlsx包的writeData函数仅支持向指定位置写入内容，默认会覆盖目标位置原有数据，无法直接实现行插入偏移效果
  • xlsx包依赖Java运行环境，当前设备存在Java版本兼容问题，且暂时无法完成环境更新，无法使用
• 当前使用的测试代码：

library(openxlsx)
wb <-loadWorkbook("first.xlsx")
writeData(wb, sheet = "Sheet 3", rev.default("Tango"), colNames = F, 
borders = "columns", 
          borderStyle = "medium")
saveWorkbook(wb,"first.xlsx",overwrite = T)

不需要更换R包，直接使用openxlsx包内置的insertRow函数即可实现需求，全程无Java依赖，是当前场景下的最优选择。
insertRow函数可以在工作表指定位置插入空行，原有位置及下方的所有内容会自动向下偏移，不会出现内容覆盖的问题，插入空行后再调用writeData写入列标题即可。

具体实现步骤 #

• 加载目标工作簿
• 调用insertRow在目标工作表的第1行位置插入1行空行
• 向新插入的空行写入列标题内容，按需设置边框等格式
• 保存修改后的工作簿

修正后可运行代码 #

library(openxlsx)
# 加载目标工作簿
wb <- loadWorkbook("first.xlsx")
# 在Sheet3的第1行位置插入1个空行，原有内容自动下移
insertRow(wb, sheet = "Sheet 3", startRow = 1, numberRows = 1)
# 向新插入的首行写入列标题，保留原有格式设置
writeData(wb, sheet = "Sheet 3", "Tango", startRow = 1, colNames = F, 
          borders = "columns", 
          borderStyle = "medium")
# 保存文件
saveWorkbook(wb, "first.xlsx", overwrite = T)

注：如果需要一次插入多行，修改numberRows参数为对应数值即可；如果要写入多列的列标题，直接传入对应长度的标题向量就行。

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