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

lin 发表于 Dev

林

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

在此处输入图片说明

神经病

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

---
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
  )
```