R 符号作为模型摘要中的系数名称

发布于12月14日

我有以下问题，希望很容易解决.我偶然发现了模型摘要包，发现它真的很有用.但我正在努力将系数重命名为符号，例如$$\Alpha$$.

我try 了所有可能的$和\or\组合，但似乎都不起作用.我还try 了Expression()，它适合我在ggploy包中使用.(表达式(例如Z[Paste(I，"，"，2019)])

这是我想要创建的摘要:

basic_reg <- modelsummary(
  list(reg_basis, reg_basis_ausr),
  stars = TRUE,
  coef_rename = c("$\alpha$", "a", "b", "c"),
  gof_omit = 'DF|Deviance|AIC|BIC|Log.Lik.|F|RMSE',
  title = 'Table 1: Basic Regressions',
  notes = list("Std. Errors in parentheses", "In (2) UK, Singapore, USA, China, France, Hong Kong and Luxembourg are removed and robust Std. Errors are added"),
  output = "gt")

gtsave(basic_reg, filename = "basic_reg.png")

我希望有人能帮忙，因为桌子看起来很漂亮.

推荐答案

一种简单的方法是使用Unicode，例如，\u03B1代表字母.

使用基于modelsummary的默认示例的最小reprex:

library(modelsummary)

url <- "https://vincentarelbundock.github.io/Rdatasets/csv/HistData/Guerry.csv"
dat <- read.csv(url)
dat$Small <- dat$Pop1831 > median(dat$Pop1831)
dat <- dat[
  c("Donations", "Literacy", "Commerce", "Crime_pers", "Crime_prop", "Clergy", "Small")
]

mod <- lm(Donations ~ Crime_prop + Crime_pers + Commerce, data = dat)

basic_reg <- modelsummary(
  list(mod, mod),
  stars = TRUE,
  coef_rename = c("\U03B1", "a", "b", "c"),
  gof_omit = "DF|Deviance|AIC|BIC|Log.Lik.|F|RMSE",
  title = "Table 1: Basic Regressions",
  notes = list(
    "Std. Errors in parentheses",
    paste(
      "In (2) UK, Singapore, USA, China, France,",
      "Hong Kong and Luxembourg are removed and",
      "robust Std. Errors are added"
    )
  ),
  output = "gt"
)

gt::gtsave(basic_reg, filename = "basic_reg.png")

EDIT第二种方法是使用gt::html.当您输出到gt时，结果是一个gt表格对象，可以使用gt中的函数进行操作，例如，我们可以使用gt::text_replace替换文本，我们可以使用gt::html添加一些HTML，除了添加希腊字母外，还允许通过<sup>或<sub>标签添加上下标.

在示例代码中，我将Alpha符号的占位符文本alpha替换为HTML实体，将单个字母"c"替换为"Delta X_2019":

basic_reg <- basic_reg |>
  gt::text_replace("alpha",
    gt::html(
      "&alpha;"
    ),
    locations = gt::cells_body()
  ) |>
  gt::text_replace("^c$",
    gt::html(
      paste0(
        "&Delta;",
        "X",
        "<sub>2019</sub>"
      )
    ),
    locations = gt::cells_body()
  )