如何用R的kableExtra包复刻LibreOffice无表头全边框LaTeX表格？

要复刻LibreOffice中无表头、带完整垂直/水平边框的发票表格，需针对kableExtra的参数做以下关键调整：

核心问题修正 #

之前的代码存在三个关键问题：

1. 未关闭booktabs模式（该模式默认启用，线条样式不支持连续全边框）
2. 未添加全量水平分隔线
3. 保留了默认行名，导致表格多出一列

完整解决方案代码 #

options(knitr.kable.NA = "")

library(kableExtra)
library(data.table)

# 构造发票表格数据
invoice_table <- data.table(
  row1 = c("Date", NA, "Net Price", "Tax", "Total Price", "Amount Due"),
  row2 = c("Description", rep(NA, 5)), 
  row3 = c("Charge Type", "Project", rep(NA, 4)),
  row4 = c("Quantity", rep(NA, 5)), 
  row5 = c("Unit Price", rep(NA, 5)),
  row6 = c("Total", rep(NA, 5))
)

# 生成符合要求的LaTeX表格
invoice_tables3 <- kbl(invoice_table, 
                      col.names = rep("", ncol(invoice_table)),  # 隐藏表头
                      row.names = FALSE,                          # 移除默认行号列
                      booktabs = FALSE,                           # 关闭booktabs，启用普通边框
                      vline = "|",                                # 添加垂直分隔线
                      hline.after = seq(-1, nrow(invoice_table))  # 给所有行添加水平边框
                      ) %>%
  kable_styling(full_width = FALSE,                              # 禁用自动全屏，适配发票布局
                latex_options = "hold_position")                 # 固定表格位置（可选）

invoice_tables3

可选优化 #

如果需要调整单元格对齐方式或宽度，可追加column_spec：

invoice_tables3 <- invoice_tables3 %>%
  column_spec(1:6, align = "l", width = "1cm")  # 左对齐所有列，设置列宽

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