用许多因变量进行估计,然后用Stargazer制表
我试图:(1)估计只有因变量变化的多个模型(2)用Stargazer软件包将结果制成表格 以下代码有效,但我必须为每个模型重复一行代码:用许多因变量进行估计,然后用Stargazer制表,r,lapply,paste,stargazer,R,Lapply,Paste,Stargazer,我试图:(1)估计只有因变量变化的多个模型(2)用Stargazer软件包将结果制成表格 以下代码有效,但我必须为每个模型重复一行代码: library(stargazer) data(mtcars) reg1 <- lm(mpg ~ am + gear + carb, data=mtcars) reg2 <- lm(cyl ~ am + gear + carb, data=mtcars) reg3 <- lm(disp ~ am +
library(stargazer)
data(mtcars)
reg1 <- lm(mpg ~ am + gear + carb, data=mtcars)
reg2 <- lm(cyl ~ am + gear + carb, data=mtcars)
reg3 <- lm(disp ~ am + gear + carb, data=mtcars)
stargazer(reg1, reg2, reg3,
title="Regression Results", type="text",
df=FALSE, digits=3)
如果我使用lappy和paste,它最终会更改stargazer中因变量的标题:
dependents <- c('mpg', 'cyl', 'disp')
outs <- lapply(dependents, function(x) {
fit <- lm(paste(x,'~', 'am + gear + carb'), data=mtcars)})
stargazer(outs[[1]], outs[[2]], outs[[3]],
title="Regression Results", type="text",
df=FALSE, digits=3)
Regression Results
==================================================
Dependent variable:
------------------------------
x
(1) (2) (3)
--------------------------------------------------
am 3.545* -0.176 -40.223
(1.897) (0.615) (48.081)
我有办法解决这个问题吗?谢谢。如果您在运行回归之前创建了公式,它应该会起作用。我只是将公式创建和回归分开
dependents <- c('mpg', 'cyl', 'disp')
outs <- lapply(dependents, function(x) {
formula <- as.formula(paste(x,'~', 'am + gear + carb'))
fit <- lm(formula, data=mtcars)})
stargazer(outs[[1]], outs[[2]], outs[[3]],
title="Regression Results", type="text",
df=FALSE, digits=3)
家属
dependents <- c('mpg', 'cyl', 'disp')
outs <- lapply(dependents, function(x) {
formula <- as.formula(paste(x,'~', 'am + gear + carb'))
fit <- lm(formula, data=mtcars)})
stargazer(outs[[1]], outs[[2]], outs[[3]],
title="Regression Results", type="text",
df=FALSE, digits=3)