r - 如何用modelsummary包转置回归输出？

Question

我刚刚发现了这个惊人的 R 包，modelsummary.

它似乎没有提供转置回归输出的能力。

我知道您不能在 内进行换位kable-extra，这是我在 R 中对普通表输出的首选。由于modelsummary依赖于kable-extra后处理，我想知道这是否可能。有没有其他人想通了？

理想情况下，我想保留回归输出的星星。这在STATA中可用（如下）：

提前致谢！

Answer 1

group您可以翻转参数公式 中项的顺序。有关许多示例，请参见此处和此处的文档。

library(modelsummary)

mod <- list(
  lm(mpg ~ hp, mtcars),
  lm(mpg ~ hp + drat, mtcars))

modelsummary(mod, group = model ~ term)

	（截距）	生命值	德拉特
模型 1	30.099	-0.068
	(1.634)	(0.010)
模型 2	10.790	-0.052	4.698
	(5.078)	(0.009)	(1.192)

这种策略的主要问题是（还）没有一种自动的方法来附加拟合优度统计数据。因此，您可能必须通过创建 adata.frame并将其提供给add_columns参数来装配某些东西。例如：

N <- sapply(mod, function(x) get_gof(x)$nobs)
N <- data.frame(N = c(N[1], "", N[2], ""))
modelsummary(mod,
             group = model ~ term,
             add_columns = N,
             align = "lcccc")

	（截距）	生命值	德拉特	ñ
模型 1	30.099	-0.068		32
	(1.634)	(0.010)
模型 2	10.790	-0.052	4.698	32
	(5.078)	(0.009)	(1.192)

如果您对拟合优度统计的最佳默认行为有任何想法，请在 Github 上提交功能请求。