如何使用 r 中的重力包并排创建 table 重力模型

How to create a table of gravity models side by side, using the Gravity Package in r

我想创建一个 table,就像 stargazer 包中的 table 一样。 但是使用 Gravity 包创建重力模型,这个包还没有被 stargazer 包支持。

您有什么想法,如何创建一个类似的 table 并排放置 3-5 个模型以便更好地比较?

输出应如下所示,仅使用 r:

中 gravity 包中的重力模型

所需的输出样式:

请提供重力包创建的模型对象示例。

或者, 我将展示一种可以使用的方法:stargazer 非常好,您甚至可以像上面那样创建 table,即使使用尚不支持的模型对象,例如可以说 stargazer 不支持分位数回归模型(甚至认为是):

诀窍是,您需要能够获得系数和标准误差,例如作为载体。然后为 stargazer 提供受支持的模型对象,例如lm 作为模板,然后机械地指定应使用哪些系数和标准误差:

library(stargazer)
library(tidyverse)
library(quantreg)


df <- mtcars

model1 <- lm(hp ~ factor(gear) + qsec + disp, data = df)
quantreg <- rq(hp ~ factor(gear) + qsec + disp, data = df)
summary_qr <- summary(quantreg, se = "boot")

# Standart Error for quant reg
se_qr = c(211.78266, 29.17307, 58.61105, 9.70908, 0.12090)

stargazer(model1, model1, 
          coef = list(NULL, summary_qr$coefficients),
          se = list(NULL, se_qr),
          type = "text")