如何重命名模型摘要中的统计数据？

Question

我有一个模型，我喜欢模型摘要中的以下格式

library(modelsummary)

fit <- lm(am ~ vs, data=mtcars)

modelsummary(
  fit,
  statistic = c('std.error', 'p.value', 'conf.int'),
  gof_map = NA,
  shape= term ~ statistic
)

但是，置信区间限制被称为

2.5%

和

97.5%

。我可以以某种方式将它们重命名为“CI Lower/Upper”之类的名称吗？

Answer 1

看起来像

modelsummary()

输出类

"kableExtra"  "knitr_kable"

的对象。这些类型的函数有点像包装器，可以为您完成繁琐的事情，例如从

summary(fit)

获取信息等。

modelsummary()

的文档相当大...如果我只想像这样进行微小的更改，我可能会直接编辑对象，因为它

kable

输出实际上只是html。有点像黑客的解决方案。或者，您可以查看 

knitr::kable()

 或 

kableExtra

 包来创建您自己的表格。

library(modelsummary)

fit <- lm(am ~ vs, data = mtcars)

out <- modelsummary(
  fit,
  statistic = c("std.error", "p.value", "conf.int"),
  gof_map = NA,
  shape = term ~ statistic
)
typeof(out)
#> [1] "character"
cl   <- class(out)
atts <- attributes(out)

out <- out |>
  as.character() |>
  sub("2\\.5 %", "CI Lower", x = _) |>
  sub("97\\.5 %", "CI Upper", x = _)
class(out) <- cl
attributes(out) <- atts
out

创建于 2024-03-28，使用 ^{reprex v2.1.0}