多重回归以取得优异成绩

Question

我想将多个回归的结果以非常特定的格式导出到excel文件中

MWS

data("mtcars")
str(mtcars)
m1<-lm(hp ~ disp, data = mtcars)
m2<-lm(hp ~ disp + wt, data = mtcars)

我发现这种格式最合适：

library(texreg)
screenreg(list(m1, m2))

===================================
             Model 1     Model 2   
-----------------------------------
(Intercept)   45.73 **    68.84 *  
             (16.13)     (31.80)   
disp           0.44 ***    0.54 ***
              (0.06)      (0.14)   
wt                       -14.45    
                         (17.10)   
-----------------------------------
R^2            0.63        0.63    
Adj. R^2       0.61        0.61    
Num. obs.     32          32       
RMSE          42.65       42.85    
===================================
*** p < 0.001, ** p < 0.01, * p < 0.05

我想将上述内容转换为数据框或类似内容，以便将其导出为ex​​cel，保留其格式。

其他可以生成类似表格并将其导出为ex​​cel的想法值得欢迎。

对我来说，最重要的是导出每个上面都有*的系数，这样我就可以理解每个新回归中哪一个是重要的。

你可以帮我解决这个问题吗？

Answer 1

您可以使用stargazer库，我认为它非常接近您的需求，

例如：

library(stargazer)

l1 <- lm(mpg ~ hp + drat, data=mtcars)
l2 <- lm(mpg ~ disp + hp, data=mtcars)

stargazer(l1, l2, title= "Regression comparision", type="html")

这里输入=＆＃34; text＆＃34;生成一个如下所示的表，但是你可以将它改为html并生成html等价物，如果你将html复制并粘贴到纯文本文件并保存为htm / html然后在浏览器中打开，你将获得格式良好的表格。 / p>

如何导出到Excel：使用type =＆＃34; html＆＃34;运行命令，将html复制到Excel工作表，即它。 Excel将能够将整个html转换为漂亮的图表，如截图。