在 R-Markdown 中使用 knitr 和 kableExtra 的表格单元格中的乳胶公式或符号， [英] Latex Formulas or symbols in table cells using knitr and kableExtra in R-Markdown,

问题描述

感谢 jaySf，我能够创建一个 pdf 文件，其中包含带有脚注的漂亮表格，其中显示了 R Markdown、Latex、knitr 和 kableExtra 的公式和符号(在他的示例下方):

Thanks to jaySf I was able to create a pdf file containing beautiful tables with footnotes showing formulas and symbols with R Markdown, Latex, knitr and kableExtra (below his example):

---
title: "Untitled"
output: pdf_document
---

```{r tab}
library(knitr)
library(kableExtra)
df <- data.frame(v1=rnorm(6), v2=runif(6), v3=rbinom(6, 1, .33), 
             row.names=LETTERS[1:6])
kable(df, "latex", align="c", booktabs=TRUE) %>%
footnote(general=c("$a^2+b^2=c^2,$",     
                   "$\\sigma^2=\\frac{1}{n-1}\\sum_{i=1}^n(x_i-\\bar{x})^2;$", 
                   "1,000 \\$;", "100\\%."),
         number=c("Hello there! \\textit{Hello there!}"),
         footnote_as_chunk=TRUE, 
         escape=FALSE)
```

导致:

现在我正在努力将符号或公式放入表格的实际单元格之一.有人可以举一个例子，在一个单元格中显示常规文本和符号和公式吗?最好也在表格标题中相同，在列名之一中和一一对应表格的行名，并带有一些编号的脚注，引用其中之一中的信息单元格或标题或列或行名称，我渴望一个拥有一切的例子！非常感谢.

Now I'm struggling with putting symbols or formulas within one of the actual cells of the table. Could someone make an example which shows regular text and symbols and formulas within one cell? Preferably also the same in table title, in one of the column names and one in one the row names of the table and with some numbered footnotes referring to information in one of the cells or title or col or row names, I'm dying for an example which has it all! Many many thanks.

推荐答案

当然:注意传递给 kable 的参数 escape:

Sure: take note of the argument escape passed to kable:

---
title: "Untitled"
output: pdf_document
---

```{r tab}
library(knitr)
library(kableExtra)
df <- data.frame(v1=rnorm(6), v2=runif(6), v3=rbinom(6, 1, .33), 
             row.names=LETTERS[1:6])

df$v4 <- c('My formula $\sum_{i=1}^9$')
kable(df, "latex", align="c", booktabs=TRUE, escape = F, caption = '$\Gamma$') %>%
footnote(general=c("$a^2+b^2=c^2,$",     
                   "$\\sigma^2=\\frac{1}{n-1}\\sum_{i=1}^n(x_i-\\bar{x})^2;$", 
                   "1,000 \\$;", "100\\%."),
         number=c("Hello there! \\textit{Hello there!}"),
         footnote_as_chunk=TRUE, 
         escape=FALSE)
```

另一个带有斜体列名和附加标题的示例:

Another example with italic column names and an additional header:

```{r, echo = F}
library(knitr)
library(kableExtra)
df <- data.frame(v1=rnorm(6), v2=runif(6), v3=rbinom(6, 1, .33), 
             row.names=LETTERS[1:6])
df$v4 <- c('My formula $\sum_{i=1}^9$')

# italic column headers
colnames(df) <- paste0("\textit{", colnames(df),"}")

kable(df, "latex", align="c", booktabs=TRUE, escape = F, caption = '$\Gamma$') %>%
footnote(general=c("$a^2+b^2=c^2,$",     
                   "$\\sigma^2=\\frac{1}{n-1}\\sum_{i=1}^n(x_i-\\bar{x})^2;$", 
                   "1,000 \\$;", "100\\%."),
         number=c("Hello there! \\textit{Hello there!}"),
         footnote_as_chunk=TRUE, 
         escape=FALSE) %>%
  add_header_above(header = c("\\textbf{Results} $\\Delta$" = 5), escape = F)
```

这篇关于在 R-Markdown 中使用 knitr 和 kableExtra 的表格单元格中的乳胶公式或符号，的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！