kableExtra：更改表格脚注的字体大小

Question

我希望脚注中的字体大小小于表格中的文本，但无法弄清楚。是否有类似于 kable_styling 的东西，我可以在其中编辑表中可用于脚注的行的文本和颜色？我正在使用 RMarkdown 生成 HTML 而不是 LateX。

---
title: "Untitled"
output: html_document
---

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

library( kableExtra )
library( knitr ) 

```

```{r mtcars}

 tab_mtcars <- knitr::kable( mtcars[ 1:5 , c( 1:4 )] , format = "html", col.names = c( "MPG", "CYL", "DISP" , "HP" ) ,  align = "lccc" , escape = F ) %>% kable_styling( full_width = T , bootstrap_options = c( "hover", "condensed" , "bordered"), position = "left") %>% add_header_above( c( "mtcars example" = 5 ) , bold = TRUE ) %>% footnote( general = c( "Here is the footnote where I would like font smaller than above" ),     general_title = "Note: ", footnote_as_chunk = T )

```

`r tab_mtcars`

Answer 1

您可以在函数<small>的general和general_title参数的文本中使用 html标记kabaleExtra::footnote。见示例：

tab_mtcars <-
  knitr::kable(
    mtcars[1:5 , c(1:4)] ,
    format = "html",
    col.names = c("MPG", "CYL", "DISP" , "HP") ,
    align = "lccc" ,
    escape = F
  ) %>%
  kable_styling(
    full_width = T ,
    bootstrap_options = c("hover", "condensed" , "bordered"),
    position = "left"
  ) %>% add_header_above(c("mtcars example" = 5) , bold = TRUE) %>% footnote(
    general = c(
      "<small>Here is the footnote where I would like font smaller than above</small>"
    ),
    general_title = "<small>Note: </small>",
    footnote_as_chunk = T ,
    escape = F
  )