在 stargazer 中删除表格组件

Question

我正在使用stargazer将表格放在一起，并使用 RMarkdown 将它们呈现在 HTML 文件中。 创建图像的可重现代码粘贴在下面。

我想删除与常量相关的星星和标准错误（下图中的“Alpha”）。

我知道我可以手动覆盖表格组件，但是有没有一种方法可以自动为除 alpha 行之外的所有内容保留星星和 SE？ 将所有内容重新写入字符向量似乎有点麻烦。

代码：

library(tidyverse)
library(stargazer) 

mdl1 <- lm(mpg~wt, mtcars)
mdl2 <- lm(mpg~disp, mtcars)

mdls <- list(mdl1,mdl2)

column.labels <- c('model 1',
                   'model 2')

covariate.labels <- c('Beta 1',
                      'Beta 2',
                      'Alpha')

keep.stat <- c('n')

stargazer(mdls, type = 'html',
          column.labels = column.labels,
          covariate.labels = covariate.labels,
          column.sep.width = "10pt",
          dep.var.labels.include = F,
          keep.stat = keep.stat) 

Answer 1

在评论中，您询问是否有stargazer的替代品可以帮助您解决这个问题。 答案是“是的”， modelsummary可以相对轻松地做到这一点。 （免责声明：我是维护者。）

我说“相对”是因为您的要求非常特殊，所以我认为您不应该期望它在任何 package 中开箱即用。 但这里有一个例子。

首先，我们从一个带有漂亮标签的基本表格开始：

library(modelsummary)
library(broom)

models <- list(
    lm(mpg ~ wt + hp, mtcars),
    lm(mpg ~ disp + hp, mtcars))

coef_map <- c(
    "wt" = "Weight",
    "disp" = "Displacement",
    "hp" = "Horse Power")

modelsummary(models, stars = TRUE, coef_map = coef_map)

The Customizing Existing Models section of the documentation explains that modelsummary allows you to overwrite any estimate (coef, standard error, p value, etc.) by defining a new function called tidy_custom.CLASSNAME , where CLASSNAME refers to the type of model object you are试图总结。

在我们上面的例子中，我们总结了lm模型：

class(models[[1]])

## [1] "lm"

因此，我们自定义的 function 将被称为tidy_custom.lm 。 假设您的目标是从表中删除标准误差、星号和 p 值，但仅针对变量hp 。 我们可以做的是用NA覆盖估计值（请参阅上面链接的文档以获取详细说明）：

tidy_custom.lm <- function(model) {
  out <- tidy(model)
  out$p.value[out$term == "hp"] <- NA
  out$std.error[out$term == "hp"] <- NA
  return(out)
}
    
modelsummary(models, stars = TRUE, coef_map = coef_map)