将脚注包装到第二行，以适合kable表格（LaTeX.Rmd）

我想知道是否有一种方法可以强制使用R中的

kable

（我正在编织.Rmd到PDF，所以格式是latex）使脚注与表格的宽度相匹配（并换行）。我使用了

add_footnote（）

和

footnote（）

。

add_footnote

函数实际上会将脚注包装到第二行，如果它超出了表格的宽度，但它也会强制使用上标（出于这个原因，我的表格中不能有上标）

footnote

为我提供了删除上标的选项，但我不确定如何使其与

add_footnote

的格式匹配，并将比表宽的脚注换行到第二行。另一个解决方案是从

add\u footnote

\captionsetup[table]{labelformat=empty}
```{r packs}
library(pacman)
p_load(tidyverse,knitr,kableExtra,janitor)

mydf <-data_frame(x=1:4,y=2:5,z=3:6)

fn1='This the footnote 1'
fn2='This is footnote 2 and is much longer'

mydf %>%
  kable(format='latex',booktabs=T,
        col.names=c('X','Y','Z'),
        caption=c('This method stretches', 'my table out in an ugly way')) %>%
  kable_styling(latex_options = c('hold_position')) %>%
  footnote(general=c(fn1, fn2),general_title="")

mydf %>%
  kable(format='latex',booktabs=T,
        col.names=c('X','Y','Z'),
        caption=c('This method ruins my title', 'and left justifies my table')) %>%
  kable_styling(latex_options = c('hold_position')) %>%
  footnote(general=c(fn1, fn2),general_title="",threeparttable = T)

mydf %>%
  kable(format='latex',booktabs=T,
        col.names=c('X','Y','Z'),
        caption=c('This is pretty close to perfect', 'if I could remove the superscripts')) %>%
  kable_styling(latex_options = c('hold_position')) %>%
  add_footnote(c(fn1, fn2))
```

\captionsetup[table]{labelformat=empty}
```{r packs}
图书馆（吃豆人）
p_负载（整洁、整洁、清洁、清洁）
多年筹资框架%
kable（format='latex'，booktab=T，
col.names=c（'X'，'Y'，'Z'），
caption=c（'此方法拉伸'，'我的表格以一种丑陋的方式展开'）%>%
kable_样式（latex_选项=c（'保持位置'））%>%
脚注（一般=c（fn1，fn2），一般标题=”）
mydf%>%
kable（format='latex'，booktab=T，
col.names=c（'X'，'Y'，'Z'），
caption=c（'此方法破坏我的标题'，'并左对齐我的表格'）%>%
kable_样式（latex_选项=c（'保持位置'））%>%
脚注（一般=c（fn1，fn2），一般标题=”，三部分表=T）
mydf%>%
kable（format='latex'，booktab=T，
col.names=c（'X'，'Y'，'Z'），
caption=c（'这非常接近完美'，'如果我可以删除上标'）%>%
kable_样式（latex_选项=c（'保持位置'））%>%
添加脚注（c（fn1、fn2））
```

PDF的屏幕截图：

---

下面是建议的

符号=“无”

选项@hao。这是中肯的

mydf %>%
  kable(format='latex',booktabs=T,
        col.names=c('X','Y','Z'),
        caption=c('Notation="none"') %>%
  kable_styling(latex_options = c('hold_position')) %>%
  add_footnote(c(fn1, fn2), notation="none")

---

有一个

三部分表

option@Hao是的，但这破坏了我的标题/标题，也似乎迫使我的表格在PDF中左对齐。我承认我不擅长乳胶，所以我猜修正最不合理的理由很简单，但它只是删除了我标题的一部分。我已经编辑/附上了上面的MWE。我几乎忘了我在添加脚注时有这样一个漏洞，因为它实际上是用多栏来做脚注的。。。好的，在开发版本中，对于

add_footnote

我在

notation

中添加了“none”。你可以试试，运气不好。它给了我一个错误，我需要在dev版本中使用

c（'alphabet'，'number'，'symbol'）

“这意味着您需要从github安装