如何用R创建带有横向合并单元格的RTF文件？

当然可以！{flextable}本身就支持直接导出RTF格式，结合{officer}的辅助能力，完全能实现带横向合并单元格（colspan）的表格需求，完美解决你之前用{RTF}包或Rmarkdown rtf_document遇到的限制。

具体步骤如下： #

1. 安装并加载所需包
   首先确保你安装了flextable和officer（后者可选，但能增强格式调整的灵活性）：

   install.packages(c("flextable", "officer"))
   library(flextable)
   library(officer)
   

2. 构建示例数据
   这里用一个简单的数据集演示，你可以替换成自己的数据：

   df <- data.frame(
     分类 = c("水果", "水果", "蔬菜", "蔬菜"),
     名称 = c("苹果", "香蕉", "胡萝卜", "西兰花"),
     单价 = c(6, 4, 3, 5)
   )
   

3. 创建表格并设置横向合并单元格
   用flextable创建表格后，通过merge_at()函数指定要合并的行、列范围，实现横向合并（colspan）。下面演示两种常见场景：

   • 场景1：表头跨列合并：给表格加一个跨3列的总标题

     ft <- flextable(df)
     # 添加跨3列的表头标题
     ft <- add_header_row(ft, values = "生鲜商品价格表", colwidths = 3)
     

   • 场景2：表格内容横向合并：比如把第一行的「分类」和「名称」单元格合并

     ft <- merge_at(ft, i = 1, j = 1:2, part = "body")
     

4. 导出为RTF文件
   用flextable自带的save_as_rtf()函数直接导出，生成的RTF文件会完整保留合并单元格的格式：

   save_as_rtf(ft, path = "带合并单元格的价格表.rtf")
   

额外提示 #

• 除了横向合并，flextable还支持纵向合并（rowspan），用merge_v()函数即可实现。
• 如果需要调整字体、背景色、边框等样式，可以用font()、bg()、border()等函数进一步美化表格。

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