gridExtra table 列 headers 中的数学符号

Question

我需要在我的两个列 headers 上写大于或等于数学符号并打印 gridExtra table 但无法正常工作。下面是一个小的 Rmarkdown 文档，显示了我正在尝试做的事情。我仍在使用 gridExtra 0.9.1，因为我所有的 table 都可以很好地使用这个版本。

    ---
    title: "Math symbols in column headers"
    date: "January 15, 2020"
    output: pdf_document
    ---

    ```{r}
    library(gridExtra)

    a <- structure(list(MLE = c(0.0839, 0.2082, 0.4194, 0.8237, 1.6201
    ), MME = c(0.0839, 0.2082, 0.4194, 0.8234, 1.6147)), class = "data.frame", row.names = c(NA, 
    5L)) 

    colnames(a) <- c("Estimated abundance of\n White Sharks\n $\\geq$ 40 inches in total length","Percentage of 3 year old\n White shark in the population\n $\\geq{40}$ inches in total length")

      grid.table(a)

```

我尝试了不同的变体，但我无法做到正确。有人能指出我正确的方向吗？我也尝试过使用 kableExtra 但没有成功。这就是我得到的，请注意我的专栏 headers:

Answer 1

添加带有 ttheme_default(colhead=list(fg_params = list(parse=TRUE))) 的主题以在 headers 列中使用 plotmath 符号。

Rmarkdown

---
title: "Math symbols in column headers"
date: "January 15, 2020"
output: pdf_document
---

```{r, echo = FALSE}
library(gridExtra)

a <- data.frame(
  MLE = c(0.0839, 0.2082, 0.4194, 0.8237, 1.6201),
  MME = c(0.0839, 0.2082, 0.4194, 0.8234, 1.6147)
)

colnames(a) <- c(bquote(atop("Estimated abundance of White Sharks", "" >= 40 ~ "inches in total length")), 
                 bquote(atop("Percentage of 3 year old White Sharks", "" >= 40 ~ "inches in total length"))) 

tt <- ttheme_default(colhead=list(fg_params = list(parse=TRUE)))
grid.table(a, theme=tt)
```

注意：换行符现在由atop指定，因为bquote不解释\n换行符

gridExtra table 列 headers 中的数学符号

Math symbols in gridExtra table column headers

grid

latex

r

r-markdown

gridextra

Rmarkdown

PDF 输出