如何减少kableExtra（乳胶）中脚注的大小

我使用

kableExtra

包在Rmarkdown中创建了下表。我在想办法缩小我的脚注。在

脚注中添加
size=1
作为参数似乎不起作用。有什么想法吗

library(tidyverse)
library(kableExtra)

data <- structure(list(Category = c("Internally Managed", "Externally Managed", 
"Asset Swaps", "Total"), Percent = c("44.1%", "32.5%", "23.4%", 
"100%")), row.names = c(NA, -4L), class = c("tbl_df", "tbl", 
"data.frame"))

data %>%
 kable(format='latex',booktabs=TRUE, align = 'lr',
        caption="Breakdown \\label{Table3}") %>% 
  kable_styling(latex_options = c("HOLD_position", full_width = T), font_size = 9) %>% 
  row_spec(0,bold=T,color = 'white', background = '#7c3042') %>% 
  row_spec(1:4, hline_after = T) %>% 
  row_spec(4, bold = T) %>% 
  column_spec(1:2, width = '5cm') %>% 
  footnote(general = "*This is what I want my footnote to be", threeparttable = TRUE, size = 7)


库（tidyverse）
图书馆（kableExtra）
数据%
kable（format='latex'，booktab=TRUE，align='lr'，
caption=“Breakdown\\label{Table3}”）%%>%
kable_样式（latex_选项=c（“保持位置”，全宽=T），字体大小=9）%>%
行规格（0，粗体=T，颜色=白色，背景=7c3042'）%>%
行规格（1:4，hline\u after=T）%>%
行规格（4，粗体=T）%>%
列规格（1:2，宽度='5cm'）%>%
脚注（general=“*这是我想要的脚注”，三部分表=TRUE，大小=7）
您可以添加一些LaTeX代码和escape（
escape=F
），以在脚注上实现较小的字体大小

一个可复制的示例：

---
title: "Footnote"
author: "bttomio"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
```

```{r evensmallerfootnote}
library(tidyverse)
library(kableExtra)

data <- structure(list(Category = c("Internally Managed", "Externally Managed", 
"Asset Swaps", "Total"), Percent = c("44.1%", "32.5%", "23.4%", 
"100%")), row.names = c(NA, -4L), class = c("tbl_df", "tbl", 
"data.frame"))

data %>%
 kable(format='latex',booktabs=TRUE, align = 'lr',
        caption="Breakdown \\label{Table3}") %>% 
  kable_styling(latex_options = c("HOLD_position", full_width = T), font_size = 9) %>% 
  row_spec(0,bold=T,color = 'white', background = '#7c3042') %>% 
  row_spec(1:4, hline_after = T) %>% 
  row_spec(4, bold = T) %>% 
  column_spec(1:2, width = '5cm') %>% 
  footnote(general = "\\\\tiny{*This is what I want my footnote to be}", threeparttable = TRUE, escape = F)
```


```{r smallerfootnote}
library(tidyverse)
library(kableExtra)

data <- structure(list(Category = c("Internally Managed", "Externally Managed", 
"Asset Swaps", "Total"), Percent = c("44.1%", "32.5%", "23.4%", 
"100%")), row.names = c(NA, -4L), class = c("tbl_df", "tbl", 
"data.frame"))

data %>%
 kable(format='latex',booktabs=TRUE, align = 'lr',
        caption="Breakdown \\label{Table3}") %>% 
  kable_styling(latex_options = c("HOLD_position", full_width = T), font_size = 9) %>% 
  row_spec(0,bold=T,color = 'white', background = '#7c3042') %>% 
  row_spec(1:4, hline_after = T) %>% 
  row_spec(4, bold = T) %>% 
  column_spec(1:2, width = '5cm') %>% 
  footnote(general = "\\\\footnotesize{*This is what I want my footnote to be}", threeparttable = TRUE, escape = F)
```

```{r footnote}
library(tidyverse)
library(kableExtra)

data <- structure(list(Category = c("Internally Managed", "Externally Managed", 
"Asset Swaps", "Total"), Percent = c("44.1%", "32.5%", "23.4%", 
"100%")), row.names = c(NA, -4L), class = c("tbl_df", "tbl", 
"data.frame"))

data %>%
 kable(format='latex',booktabs=TRUE, align = 'lr',
        caption="Breakdown \\label{Table3}") %>% 
  kable_styling(latex_options = c("HOLD_position", full_width = T), font_size = 9) %>% 
  row_spec(0,bold=T,color = 'white', background = '#7c3042') %>% 
  row_spec(1:4, hline_after = T) %>% 
  row_spec(4, bold = T) %>% 
  column_spec(1:2, width = '5cm') %>% 
  footnote(general = "*This is what I want my footnote to be", threeparttable = TRUE, escape = F)
```

---
标题：“脚注”
作者：“bttomio”
输出：pdf\U文件
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=FALSE，message=FALSE，warning=FALSE）
```
```{r evensallerfootnote}
图书馆（tidyverse）
图书馆（kableExtra）
数据%
kable（format='latex'，booktab=TRUE，align='lr'，
caption=“Breakdown\\label{Table3}”）%%>%
kable_样式（latex_选项=c（“保持位置”，全宽=T），字体大小=9）%>%
行规格（0，粗体=T，颜色=白色，背景=7c3042'）%>%
行规格（1:4，hline\u after=T）%>%
行规格（4，粗体=T）%>%
列规格（1:2，宽度='5cm'）%>%
footnote（general=“\\\\tiny{*这就是我想要的脚注，}”，三部分表=TRUE，escape=F）
```
```{r smallerfootnote}
图书馆（tidyverse）
图书馆（kableExtra）
数据%
kable（format='latex'，booktab=TRUE，align='lr'，
caption=“Breakdown\\label{Table3}”）%%>%
kable_样式（latex_选项=c（“保持位置”，全宽=T），字体大小=9）%>%
行规格（0，粗体=T，颜色=白色，背景=7c3042'）%>%
行规格（1:4，hline\u after=T）%>%
行规格（4，粗体=T）%>%
列规格（1:2，宽度='5cm'）%>%
footnote（general=“\\\\footnotesize{*这就是我想要的脚注，}”，三部分表=TRUE，escape=F）
```
```{r脚注}
图书馆（tidyverse）
图书馆（kableExtra）
数据%
kable（format='latex'，booktab=TRUE，align='lr'，
caption=“Breakdown\\label{Table3}”）%%>%
kable_样式（latex_选项=c（“保持位置”，全宽=T），字体大小=9）%>%
行规格（0，粗体=T，颜色=白色，背景=7c3042'）%>%
行规格（1:4，hline\u after=T）%>%
行规格（4，粗体=T）%>%
列规格（1:2，宽度='5cm'）%>%
脚注（general=“*这是我想要的脚注”，三部分表=真，escape=F）
```

-输出


您可以按照以下步骤操作：