如何使表脚注与kableExtra对齐？

Question

我尝试使用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.")

在这里输入图像描述

Answer 1

我认为full_width = T in kable_styling是引发问题的选择。如果没有那样的话，对我来说似乎是可行的。

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

```{r, echo=FALSE}

图书馆(Magrittr)

数据(“mtcar”)

tbl <- data.frame(mpg =平均(mtcar$mpg)，cyl =平均(mtcar$cyl)，disp =平均值(mtcar$disp))

行名(Tbl) <- c(“意思”)

针织品：：kable(tbl，“胶乳”)，

         booktabs = T,

         digits = 2, 

         escape = FALSE) %>% 

KableExtra：：add_header_above(c(“平均”= 4)) %>%

kableExtra::kable_styling(latex_options = "hold_position"，font_size = 10) %>%

kableExtra::column_spec(c(1:4)，宽度= "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

)

​

​