如何使用 knitr::kable() 将两个不同大小的表并排对齐

Question

为了比较，我试图将两张桌子并排放置。我遇到的问题是，当我在 rmarkdown 中编织时，第二个表（更少的行）被放置在第一个表的中间，反之亦然，具体取决于每个表中有多少行。我希望它们都顶部对齐。我已经 valign、hold_position 和 HOLD_position 无济于事。

以下是使用 rmarkdown 和 mtcars 的完全可重现的问题示例

{r mtcars, echo = F, fig.pos = "H"}

cars1 <- 
  mtcars %>% 
  rownames_to_column(var = "car") %>% 
  select(car:disp) %>% 
  head(8)

cars2 <- 
  mtcars %>% 
  rownames_to_column(var = "car") %>% 
  select(car:disp) %>% 
  tail(4)


knitr::kable(
  list(
    cars1,
    cars2
  ),
valign = 't'
) %>% 
  kableExtra::kable_styling(bootstrap_options = c("striped", "hover", "condensed"),
                            latex_options = "hold_position")

mtcars table example

Answer 1

说实话，我不知道如何使用 knitr 选项和参数来解决这个问题。

但我建议您使用 flexdashboards 的轮廓解决方案，您可以在其中创建两个（或更多）列并将每个表绘制在自己的列中，从而得到下图并排的表和顶部对齐。但我不知道您的降价目的是否允许使用 flexdashboards。

Answer 2

这个问题的答案是使用 Latex 手动调整较短图形的高度，使其与较高的图形对齐。

首先为每个表分别制作kable表：

cars1 <- 
  mtcars %>% 
  rownames_to_column(var = "car") %>% 
  select(car:disp) %>% 
  head(8) %>% 
  kbl(booktabs = T)

cars2 <- 
  mtcars %>% 
  rownames_to_column(var = "car") %>% 
  select(car:disp) %>% 
  tail(4) %>% 
  kbl(booktabs = T)

然后使用 Latex 代码将表格并排对齐：

cat(c("\\begin{table}[!htb]
    \\begin{minipage}{.5\\linewidth}
    \\caption{The first table}",
        cars1,
    "\\end{minipage}%
    \\begin{minipage}{.5\\linewidth}
    \\caption{The second table}
    \\vspace*{-19mm}",
        cars2,
    "\\end{minipage} 
\\end{table}"
)) 

这里的关键行是\\vspace*{-19mm}，手动调整第二张桌子的高度。结果如下：