Математические символы в заголовках столбцов таблицы gridExtra

Question

Мне нужно написать символ больше или равный математическому на двух моих заголовках столбцов и распечатать таблицу gridExtra, но я не могу заставить его работать. Ниже приведен небольшой документ Rmarkdown, показывающий, что я пытаюсь сделать. Я все еще использую gridExtra 0.9.1, потому что все мои таблицы прекрасно работают с этой версией.

    ---
    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 без удачи. Вот что я получаю, обратите внимание на заголовки моих столбцов:

Answer 1

Добавьте тему с ttheme_default(colhead=list(fg_params = list(parse=TRUE))), чтобы использовать нотацию 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 разрывы строк

---

Вывод PDF