r - 如何在 R markdown 中渲染复杂的表格？

Question

是否可以在中呈现像这样的复杂表格rmarkdown？

我试过这段代码......这是我能做到的：

| <br /> $X_1$ |     | | | $X_2$ | |
|----------------|-----------------------------------------------------------------------|-|-|-|-|
| |1|2|...|C||
| 1 | $O_{11}$ | $O_{12}$ |...| 1 | $n{1.}$ |
| 2 | $O_{21}$ | $O_{22}$ |...| 2 | $n{2.}$ |
| ... |...|...|...|...|...|
| L | $O_{L1}$ | $O_{L2}$ |...| $O_{LC}$ | $n{L.}$ |
|  | $n{.1}$ | $n{.2}$ | | $n{.C}$ | $N$ |

Answer 1

kableExtra我使用以下代码实现了令人满意的解决方案：

library(knitr)
library(kableExtra)

text_tbl <- data.frame(
   a= c("1", "2","...","L",""),
   b= c("$O_{11}$","$O_{21}$","...","$O_{L1}$","$n_{.1}$"),
   c= c("$O_{11}$","$O_{22}$","...","$O_{L2}$","$n_{.2}$"),
   d= c("...","...","...","...","..."),
   e= c("$O_{C1}$","$O_{C2}$","...","$O_{LC}$","$n_{.C}$"),
   f= c("$n_{1.}$","$n_{2.}$","...","$n_{L.}$","$N$"))
kable(text_tbl, "html", booktabs = T, col.names = c("","1","2","...","C"," "), escape=F) %>%
  kable_styling(full_width = F,bootstrap_options = "striped") %>%
  add_header_above(c(" Variável A", "Variável B" = 4, " ")) %>%
  column_spec(1, bold = T) %>%
  column_spec(2)

结果：