我想将多个回归的结果以非常特定的格式导出到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
我想将上述内容转换为数据框或类似内容,以便将其导出为excel,保留其格式。
其他可以生成类似表格并将其导出为excel的想法值得欢迎。
对我来说,最重要的是导出每个上面都有*的系数,这样我就可以理解每个新回归中哪一个是重要的。
你可以帮我解决这个问题吗?答案 0 :(得分: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转换为漂亮的图表,如截图。