Как добавить подписки на метки в таблицах с помощью пакета gtsummary в R?

Question

Я хотел бы ввести нижний индекс в имени переменной для сводной таблицы регрессии, сгенерированной с использованием tbl_regression, в пакете R gtsummary. Может ли кто-нибудь дать рекомендации, как это сделать? Код, использованный для генерации таблицы, и полученная таблица представлены ниже. Я хотел бы, чтобы метка «NO2» отображалась как «NO ₂ ».

library(tidyverse)
library(gtsummary)

case <- c(0,1,0,0,0,0)
no2 <- c(17, 14, 8, 9, 9, 7)
df <- data.frame(case, no2)

mod_adj <- glm(case~no2,data=df, family="binomial")

regression_table_adj <- mod_adj %>% 
  tbl_regression(exponentiate = TRUE,  label = list(no2~"NO2"))

regression_table_adj

^{Создано в 2020-03-04 пакетом Представлять (v0.3.0)}

Таблица, созданная с использованием tbl_regression в пакете gtsummary пакета R, показывающая имя коэффициента, в которое я хочу включить цифру c индекс

Answer 1

Пакет gtsummary использует пакет gt для печати таблиц по умолчанию. Я просмотрел их документацию и не нашел способа включить индекс в тело таблицы.

Хорошая новость заключается в том, что gtsummary также поддерживает печать таблиц с knitr::kable() через функцию as_kable() , Вы можете заключить текст между двумя тильдами, чтобы сделать его индексом (например, label = list(no2 ~ "NO~2~")). Используйте код ниже в файле R уценки, и вы должны получить индекс. Недостатком использования kable является то, что он не поддерживает сноски, отступы и остовный заголовок. Удачного кодирования!

library(gtsummary)

case <- c(0,1,0,0,0,0)
no2 <- c(17, 14, 8, 9, 9, 7)
df <- data.frame(case, no2)

mod_adj <- glm(case~no2,data=df, family="binomial")

mod_adj %>% 
  tbl_regression(
    exponentiate = TRUE,  
    label = list(no2 ~ "NO~2~")
  ) %>% 
  as_kable()

^{Создано в 2020-03-04 пакетом prex (v0. 3,0)}