Quarto/RMarkdown 到 PDF：如何增加表格子标题之间的边距？

Question

我使用 Quarto/RMarkdown 导出一个 PDF，其中包含一个代码块，该代码块可生成两个表（包括）。子帽。

如何增加下层子上限与上层表格的边距？

我的代码：

#| label: tbl-1985
#| tbl-cap: "*Was Wann Wo* im Jahr 1985"
#| tbl-subcap: 
#|   - "Auswertung nach Kategorien"
#|   - "Besonderheiten"
#| layout-nrow: 2
#| fig-pos: 'H'

# table 1
df_table_1 %>% 
    knitr::kable(., caption = paste0("\\textit{Was Wann Wo} im Jahr ", year)) %>%
    kableExtra::kable_styling(latex_options = "scale_down")

# table 2
df_table_2 %>% 
    knitr::kable(., caption = paste0("Besonderheiten im Jahr ", year)) %>% 
    kableExtra::column_spec(2, width = "12cm")

Answer 1

一种选择是使用layout选项在两个表之间创建一些垂直空间。根据复杂布局的四开文档，

布局属性是一个二维数组，其中第一个维度定义行，第二个维度定义列。在这种情况下，layout="[[1,1], [1]]"翻译为：创建两行，第一行有两列大小相等，第二行有一列。

您还可以使用负值在元素之间创建空间。

---
format: pdf
execute: 
  echo: false
---


```{r}
#| label: data

df_table_1 <- head(mtcars, 15)
```


```{r}
#| label: tbl-1985
#| tbl-cap: "*Was Wann Wo* im Jahr 1985"
#| tbl-subcap: 
#|   - "Auswertung nach Kategorien"
#|   - "Besonderheiten"
#| layout: "[[1], [-1], [1]]"
#| fig-pos: 'H'

# table 1
knitr::kable(df_table_1)

# table 2
knitr::kable(df_table_1)
```