如何调整RMarkdown表格分组灰行背景色以消除表头间空白

问题场景 #

使用kableExtra在RMarkdown生成PDF表格时，通过pack_rows设置的灰色分组标题行与表头之间存在空白，影响表格视觉连贯性。

解决方案 #

问题源于booktabs=TRUE启用后，LaTeX的\midrule命令会在表头下方添加默认间距，而pack_rows生成的分组行默认保留该间距。通过调整pack_rows的参数即可消除空白：

修改原代码中的pack_rows部分，添加extra_latex_before和vspace参数抵消默认间距：

# 替换原pack_rows行
pack_rows(
  index = table(p3_1$grp), 
  background = "lightgray",
  extra_latex_before = "\\noalign{\\vskip -0.8em}", # 抵消midrule的默认空白
  vspace = 0 # 取消分组行上下的默认间距
)

完整修改后的代码 #

options(knitr.kable.NA = "-")

grp_nm <- c("Catalunya", "Espanya", "Zona euro", "Internacional")

p3_1 <- 
  p3_1 |> 
  mutate(grp = ifelse(...1 %in% grp_nm, ...1, NA),
         ...1 = case_when(str_detect(...1, "interna1") ~ "$\\text{Demanda interna}^1$",
                          str_detect(...1, "externa1") ~ "$\\text{Demanda externa}^1$",
                          TRUE ~ ...1))|>
  fill(grp) |> 
  filter(!...1 %in% grp_nm) |> 
  select(grp, everything())

kable(p3_1[, -1],
      align = "lrrrrrr",
      col.names = c("", names(p3_1[-(1:2)])),
      booktabs=TRUE,
      digits=1,
      format.args = list(big.mark="."),
      linesep = "" ,
      caption="Producte interior brut (\\% de variació interanual, llevat dels casos indicats)", escape = FALSE) |>
  add_header_above(c("", "Any" = 3, "Trimestre" = 3), bold=T) |>
  kable_styling(latex_options=c("HOLD_position","scale_down"), position="center") |> 
  column_spec(1, bold=T, width="4cm") |> 
  column_spec(2:7, width="2cm") |> 
  row_spec(0, bold = T) |> 
  # 修改后的pack_rows参数
  pack_rows(
    index = table(p3_1$grp), 
    background = "lightgray",
    extra_latex_before = "\\noalign{\\vskip -0.8em}",
    vspace = 0
  ) |>
  footnote(general="Idescat; Eurostat; INE; BEA; ESRI; Agència Estatal d'Administració Tributària.", general_title = "Font:", footnote_as_chunk = T,)  |>
  footnote(general="$^{A}$Dada avançada. $^{1}$Contribució al creixement. $^{2}$Sèrie original corregida d'efectes de calendari.
           $^{3}$En valors constants. Exclou estacions de servei.",  escape = F, general_title = "Nota:", threeparttable = TRUE, footnote_as_chunk = T,)

参数说明 #

• extra_latex_before = "\\noalign{\\vskip -0.8em}"：通过LaTeX命令减少分组行上方的空白，抵消booktabs中\midrule的默认间距（可根据实际显示效果调整-0.8em的数值）。
• vspace = 0：取消pack_rows默认给分组行添加的上下间距，让灰色行与表头、内容行紧密贴合。

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