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

【问题标题】：How to create a table of gravity models side by side, using the Gravity Package in r如何使用 r 中的重力包并排创建重力模型表
【发布时间】：2020-08-07 10:47:56
【问题描述】：

我想创建一个类似于 stargazer 包中的表格的表格。但是使用 Gravity 包来创建重力模型，stargazer 包还不支持这个包。

您有什么想法，如何创建一个相似的表格，并排放置 3-5 个模型以便更好地进行比较？

输出应该是这样的，只是来自 r 中的重力包的重力模型：

所需的输出样式：

【问题讨论】：

标签： r gravity

【解决方案1】：

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

或者，我将展示一种可以使用的方法：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")

【讨论】：

我终于从“stargazer package”切换到“sjPlot - Package”。使用 tab_model 函数将重力模型（使用重力包中的 ols 模型）并排放置。但是您的解决方法似乎是一个聪明的主意！谢谢！