代码之家 › 专栏 › 技术社区 › msh855

多次回归到Excel

lm regression export r

2

msh855 · 技术社区 · 8 年前

我想将多个回归的结果以非常特定的格式导出到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的想法。

对我来说,最重要的是将系数*导出到每个系数的顶部,这样我就可以理解在每个新回归中哪个系数是重要的。

你能帮我吗?

1 回复 | 直到 8 年前

1

PKumar 8 年前

你可以用 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")

这里,type=“text”生成如下表格,但是您可以将其更改为HTML并生成HTML等效文件,如果您将HTML复制并粘贴到纯文本文件中,并将其保存为HTM/HTML,然后在浏览器中打开,您将得到格式良好的表格。

如何导出到Excel: 使用type=“html”运行命令,将html复制到Excel工作表,即它。Excel可以将整个HTML转换为类似屏幕截图的漂亮图表。