R Kable add_header_above 在空白处添加行答案

【问题标题】：R Kable add_header_above adding line on blank spacesR Kable add_header_above 在空白处添加行
【发布时间】：2020-12-31 05:39:12
【问题描述】：

我不确定我是否做错了什么，但我正在尝试创建一个表，其表头将列分组如下：

我按照文档 here 中提供的说明进行操作，但我仍然在标题单元格上看到应该为空白的行（前 2 列）。下面是我编织到 html 文件后得到的表格。我不确定如何进行故障排除。

这是我的可重现表：

structure(list(sigma = c(0.321, 0.554, 0.483, 5.684, 8.824, 5.25
), R2 = c(94.47, 83.074, 86.853, 1.088, 13.921, 44.549), Linearity = c(8.38493902175155, 
7.74415836463606, 7.83262748829169, 3.58505816475888, 21.3428889807196, 
28.3052628262925), XLinearity = c(3.63637661675805, 3.35848314705469, 
3.39685039716013, 0.307760165986819, 1.83218535194569, 2.42987198125591
), Appraiser = c("AA", "AB", "AC", "AA", "AB", "AC"), Signal = c("Frequency", 
"Frequency", "Frequency", "Amplitude", "Amplitude", "Amplitude"
)), row.names = c(NA, 6L), class = "data.frame")

我的尝试：

GageResults$GageBiasAll%>%
    `colnames<-`(c("Value",rep(c("Bias","%Bias","$p$-value"),3)))%>%
  cbind(Signal=c(rep("Frequency",6),rep("Amplitude",6)),.)%>%
  kable(#caption = "Variation or each source of measurement error",
                     booktabs=T,row.names = F,
                     escape = T,digits = 3
                     )%>%
  # pack_rows("Frequency", 1, 6) %>%
  # pack_rows("Amplitude", 7, 12)%>%
  kable_styling(latex_options = c("striped","hold_position"))%>%
  collapse_rows(columns = 1, valign = "middle")%>%
  kable_classic(full_width = T, html_font = "Helvetica")%>%
  add_header_above(c(" "=2, "AA" = 3, "AB" = 3,"AC"=3))

以及编织markdown文件后在html文件中产生的结果。同样，我试图摆脱应该为空白的空格下方的行。

非常感谢您的帮助！

【问题讨论】：

标签： html r kable

【解决方案1】：

我想通了。 add_header_above() 函数必须在 kable_styling 函数之前。现在它完美地工作了。

【讨论】：