使用officer包的body_add_table时，如何为表格添加简单边框？

关于fp_border()的作用与正确用法 #

fp_border()是用来**定义边框样式（颜色、粗细、线型）**的基础工具，不能单独调用生效，必须搭配officer的表格样式设置函数绑定到表格元素上才能起作用，你之前单独调用它没效果就是因为没完成绑定步骤。

用officer原生方法添加表格分隔线的示例 #

如果不想切换到flextable，可以用tab_style()结合fp_border()实现单元格分隔线，示例代码如下：

library(officer)
library(magrittr)

# 定义分隔线样式：细黑色实线
cell_border_style <- fp_border(color = "#000000", width = 1)

# 创建文档并添加带分隔线的表格
doc <- read_docx() %>%
  # 添加表格并指定基础样式
  body_add_table(iris[1:5, 1:4], style = "Normal Table") %>%
  # 给正文单元格添加四边分隔线
  tab_style(
    style = cell_borders(
      top = cell_border_style,
      bottom = cell_border_style,
      left = cell_border_style,
      right = cell_border_style
    ),
    locations = cells_body(rows = 1:5, cols = 1:4)
  ) %>%
  # 给表头单元格添加四边分隔线
  tab_style(
    style = cell_borders(
      top = cell_border_style,
      bottom = cell_border_style,
      left = cell_border_style,
      right = cell_border_style
    ),
    locations = cells_header()
  ) %>%
  # 保存文档
  print(target = "bordered_table.docx")

是否必须改用flextable？ #

不是必须，但flextable对表格样式的控制更直观、功能更丰富，设置边框的代码会更简洁。如果你的表格样式需求复杂，切换到flextable确实更高效；如果只是简单的分隔线，用上述officer原生方法也能实现。

关于那个奇怪的错误提示 #

你遇到的The tag [table] is too similar to [table]是Stack Overflow标签系统的提示，和你的R代码无关，是提问时重复添加了相同标签导致的，无需在意。

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