如何将 table 脚注与 kableExtra 对齐？

Question

我尝试使用 kableExtra::add_footnote() 为我的 PDF 输出创建脚注。我想让脚注在两边对齐，减小字体大小和 space 行。我确实尝试在我的代码中添加 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.")

enter image description here

Answer 1

我认为 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
  )
```

如何将 table 脚注与 kableExtra 对齐？

How to align table footnotes with kableExtra?

r

r-markdown

kableextra