如何减小 kableExtra (LaTeX) 中脚注的大小

How to reduce size of footnote in kableExtra (LaTeX)

我使用 kableExtra 包在 Rmarkdown 中创建了以下 table。我正在寻找一种方法来减小脚注的大小。在 footnote 参数中添加 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)

您可以添加一些 LaTeX 代码并对它们进行转义 (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)
```

-输出

你可以关注this: