![](/img/trans.png)
[英]No indentation in footnote with kableExtra::kbl for latex output
[英]How to reduce size of footnote in kableExtra (LaTeX)
我使用kableExtra
package 在 Rmarkdown 中创建了下表。 我正在寻找一种减小脚注大小的方法。 在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)
```
-输出
你可以按照这个:
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.