如何将表格脚注与 kableExtra 对齐？

Question

我尝试使用kableExtra::add_footnote()为我的 PDF output 创建脚注。 我想让脚注两边对齐，减小字体大小和行距。 我确实尝试在我的代码中添加threeparttable = T ，但它没有用。

library(magrittr)
data("mtcars")
tbl <- tibble::tibble(mpg = mean(mtcars$mpg), cyl = mean(mtcars$cyl), disp = mean(mtcars$disp)) %>% as.data.frame()

rownames(tbl) <- c("Mean")
knitr::kable(tbl, "latex",
             booktabs = T,
             digits = 2, 
             escape = FALSE) %>% 
  kableExtra::add_header_above(c("Mean" = 4)) %>% 
  kableExtra::kable_styling(latex_options = "hold_position", full_width = T,  font_size = 10) %>% 
  kableExtra::column_spec(1, width = "3cm") %>% 
  kableExtra::add_footnote("I want to add some long long long long long footnotes here, and I want the format looks elegant enough.")

在此处输入图像描述

Answer 1

我认为 kable_styling 中的kable_styling full_width = T是导致问题的选项。 没有它，它似乎对我有用。

---
output: pdf_document
header-includes: 
  - \usepackage{caption} 
  - \usepackage{booktabs} 
  - \usepackage{longtable}
  - \usepackage{threeparttablex} 
---

```{r, echo=FALSE}
library(magrittr)
data("mtcars")
tbl <- data.frame(mpg = mean(mtcars$mpg), cyl = mean(mtcars$cyl), disp = mean(mtcars$disp))

rownames(tbl) <- c("Mean")
knitr::kable(tbl, "latex",
             booktabs = T,
             digits = 2, 
             escape = FALSE) %>% 
  kableExtra::add_header_above(c("Mean" = 4)) %>% 
  kableExtra::kable_styling(latex_options = "hold_position", font_size = 10) %>% 
  kableExtra::column_spec(c(1:4), width = "3cm") %>%
  kableExtra::add_footnote(
    "I want to add some long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long footnotes here.",
    threeparttable = T
  )
```