latex - RMarkdown kable 垂直对齐单元格

Question

我正在使用 RMarkdown 编写报告，并使用 kable 和 kableExtra 来格式化和打印表格。这是我想要的表格（用 Word 制作）：

我正在努力对垂直居中进行排序（"Number of Incident Occurences"顶部和底部之间的空间，以便文本在行的中间对齐，在列的左侧。

请注意，我正在创建 PDF 报告而不是 html。

这是一个最小的例子：

df <- data.frame(a = letters[1:5], b = 1:5)
names(df) <- c("A very very very very very very very very very very very very very very very very very very long title",
               "A short title")

df %>% kable(format = 'latex', linesep = "", align = 'c', escape = F) %>% kable_styling(full_width = T)

这就是输出的样子：

垂直对齐似乎推到了顶部。我遇到了“m”，但这只是中间对齐列。我想知道我是否需要为所有行指定一些特殊的东西是 row_spec() align = "m"，但是当我这样做时，它会抱怨......有什么想法吗？

Answer 1

这可以通过添加extra_css参数在 HTML 中轻松实现。（对于那些在 HTML 中搜索类似解决方案并且只找到这篇文章的人）

column_spec(1,extra_css = "vertical- align:middle;")

Answer 2

似乎没有办法直接在 kable 和 kableExtra 中执行此操作。但是，当通过 kable 将表格构建为 PDF 时，它使用 LaTeX 来构建结果。因此，我们可以将 LaTeX 函数直接集成到表格中。

此解决方案使用multirow包。垂直居中的单元格可以用 包裹\\multirow{1}{*}[0pt]{Cell content}，如下：

---
header-includes:
  - \usepackage{multirow}
output: pdf_document
---

```{r}
library(knitr)
library(kableExtra)

df <- data.frame(a = letters[1:5], b = 1:5)
names(df) <- c("A very very very very very very very very very very very very very very very very very very long title",
               "\\multirow{1}{*}[0pt]{A short title}")


df %>% kable(format = 'latex', linesep = "", align = 'c', escape = F) %>% kable_styling(full_width = T)
```

为了更轻松地使用它，您可以创建一个函数来为您重命名：

centerText <- function(text){
    paste0("\\multirow{1}{*}[0pt]{", text, "}")
  }

因此，要重命名您运行的列：centerText("A short title")