用 kable 在表格下方添加另一个标题答案

【问题标题】：add another caption below table with kable用 kable 在表格下方添加另一个标题
【发布时间】：2018-11-20 23:42:25
【问题描述】：

在 R markdown 中，编织成 PDF，kable 允许包含“标题”（实际上是表格标题），但我想在 下面添加 另一个标题 strong> 小字体的表格。任何想法如何做到这一点？（我不想只在主降价文档中添加文本，因为它是数字而不是表格浮动的一部分）。

下面是一些代码示例：

library(knitr)
name <- c('Na~2~O', 'Ca', 'Ba')
value <- c(2,3,5)
data <- data.frame(name, value)
rownames(data) <- data[,1]
data$name <- NULL
kable(data, format = "pandoc", caption = 'some title')

【问题讨论】：

这并不完全是另一个标题，但可能会在 kableextra 包中添加一个脚注。看看here

标签： r markdown r-markdown pandoc kable

【解决方案1】：

使用 kable 函数，这里是如何从这个页面做到这一点：https://haozhu233.github.io/kableExtra/awesome_table_in_html.html

总的来说，该页面只是一个很好的资源。以下是他们对脚注的看法：

脚注中有四种符号系统，即通用、数字、字母和符号。后三种脚注将标有相应的标记，而一般不会标明。您可以选择这些系统中的任何一个或选择全部显示它们以满足 APA 表脚注要求。

kable(dt, align = "c") %>% 
kable_styling(full_width = F) %>%
footnote(general = "Here is a general comments of the table. ",
       number = c("Footnote 1; ", "Footnote 2; "),
       alphabet = c("Footnote A; ", "Footnote B; "),
       symbol = c("Footnote Symbol 1; ", "Footnote Symbol 2"))

【讨论】：

【解决方案2】：

您可以使用xtable。为此，您需要将数据放入列表并为其赋予属性“消息”。

```{r table1, results='asis', message=FALSE, echo = FALSE}
data <- list(data)
attr(data, "message") <- c("\\textit{Note: }Here you can enter some", 
                           "text as your desired caption",
                           "there's somewhere a workaround",
                           "not needing to put in text like this",
                           "but at least it works.")

library(xtable)
print(xtableList(data, caption="some title")
      , caption.placement = "top"
      , sanitize.text.function = identity
      )
```

产量

数据

name <- c('Na\\textsubscript{2}O', 'Ca', 'Ba')
value <- c(2,3,5)
data <- data.frame(name, value)
rownames(data) <- data[,1]
data$name <- NULL

注意：此外，为了更好地格式化this solution，这里也应该适用（虽然还没有尝试过）。

【讨论】：