добавить еще одну подпись под таблицей с кабелем

в R markdown, связанном с PDF, kable позволяет включать "заголовок" (который на самом деле является заголовком таблицы), но я бы хотел добавить еще один заголовок под таблицу меньшим шрифтом. Есть идеи, как это сделать? (Я не хочу просто добавлять текст ниже в основной документ уценки, потому что тогда это номер, а не часть таблицы).

Вот пример кода:

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')

r markdown r-markdown kable pandoc
person Tony D    schedule 20.11.2018    source источник
comment
Это не совсем другая подпись, но, возможно, добавление сноски к пакету kableextra. Взгляните здесь   -  person Bruno Pinheiro    schedule 21.11.2018

Ответы (2)


arrow_upward
2
arrow_downward

Вот как это сделать с помощью функции 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"))
person B. Stanley    schedule 10.01.2019

arrow_upward
0
arrow_downward

Вы можете использовать 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

Примечание. Кроме того, для лучшего форматирования это решение также должно быть применимо здесь (еще не пробовал хотя).

person jay.sf    schedule 25.11.2018