如何修改huxtable边框样式？解决第一列右边框无法设为实线问题

问题描述 #

尝试为huxtable表格的第1列设置右边框，边框可正常显示，但即便指定style = "solid"，仍始终显示为虚线样式。

原始数据与表格创建代码：

library(dplyr)
library(huxtable)

set.seed(72723)

df <- data.frame(ID = sample(c(1:30), 200, replace = TRUE),
                 Day = sample(seq(2, 16, 2), 200, replace = TRUE),
                 Treatment = sample(c("A", "B", "C"), 200, replace = TRUE))

df <- df[order(df$Treatment, df$ID, df$Day), ]
df <- df %>% distinct(ID, Day, .keep_all = TRUE)

out <- as_huxtable(table(df$Treatment, df$Day))

原始表格效果：

尝试添加表头并设置边框的代码：

out %>% insert_row(rep(NA, length(out)), after = 0) %>%
  set_contents(row = 1, col = round(length(out)/2), value = "Day") %>%
  set_bottom_border(row = 2, col = everywhere) %>%
  set_right_border(row = everywhere, col = 1, brdr(style = "solid"))

但右边框仍显示为虚线：

后续尝试单独设置边框样式也无效果：

out %>% insert_row(rep(NA, length(out)), after = 0) %>%
  set_contents(row = 1, col = round(length(out)/2), value = "Day") %>%
  set_bottom_border(row = 2, col = everywhere) %>%
  set_right_border(row = everywhere, col = 1) %>%
  set_right_border_style(row = everywhere, col = 1, value = "solid")

解决方案 #

问题根源在于huxtable默认的垂直边框宽度较细，且可能未完全覆盖所有行的边框设置。需要明确指定边框的样式和宽度，确保应用到表格的所有行（包括新增的表头行）。

修改后的代码：

out %>% 
  insert_row(rep(NA, length(out)), after = 0) %>%
  set_contents(row = 1, col = round(length(out)/2), value = "Day") %>%
  # 设置表头下方的底部边框为实线
  set_bottom_border(row = 2, col = everywhere, brdr(style = "solid", width = 1)) %>%
  # 为第1列所有行设置右边框为实线，指定宽度确保显示清晰
  set_right_border(row = everywhere, col = 1, brdr(style = "solid", width = 1))

说明 #

• 使用brdr(style = "solid", width = 1)同时指定边框样式和宽度，避免因默认宽度过细导致视觉上类似虚线的效果。
• row = everywhere确保边框设置应用到表格的所有行，包括插入的表头行，避免出现部分行边框样式不一致的问题。

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