在R语言DataFrame中为指定行添加双分隔线的格式化方法

如果仅用kable或formattable确实没法直接实现双分隔线，但搭配扩展包或用更灵活的表格工具就能解决，下面是两种实用方案：

方法1：kable + kableExtra #

kableExtra是kable的扩展工具，能轻松添加自定义分隔线。先安装加载包，再通过add_hline()指定位置并开启双线条：

# 首次使用先安装
install.packages("kableExtra")

# 加载依赖包
library(kableExtra)
library(dplyr)

# 构造分组示例数据
df <- tibble(
  分组 = rep(c("分组A", "分组B", "分组C"), each = 3),
  数值1 = rnorm(9),
  数值2 = rnorm(9)
)

# 生成带双分隔线的表格
df %>%
  kable("html") # 若要输出PDF可改为"latex"
  %>% add_hline(at = c(3, 6), line_double = TRUE)

• at = c(3,6)表示在第3、6行下方加双分隔线，对应每个分组的末尾行
• LaTeX格式下双分隔线的显示效果更适配学术文档需求

方法2：使用gt包 #

gt包的样式定制更直观，通过tab_style()给指定行添加双底线：

# 首次使用先安装
install.packages("gt")

# 加载包
library(gt)

# 用同一示例数据
df <- tibble(
  分组 = rep(c("分组A", "分组B", "分组C"), each = 3),
  数值1 = rnorm(9),
  数值2 = rnorm(9)
)

# 生成带双分隔线的表格
df %>%
  gt() %>%
  tab_style(
    style = cell_borders(
      sides = "bottom",
      style = "double",
      weight = px(2)
    ),
    locations = cells_body(rows = c(3, 6))
  )

• cells_body(rows = c(3,6))指定给目标行添加底部双边框
• 调整weight参数可改变线条粗细，适配不同展示场景

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