excel 的多元回归

Question

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

MWS

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

我觉得这个格式最合适table:

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，保留其格式。

欢迎其他可以生成类似 table 并将其导出到 excel 的想法。

对我来说最重要的事情是导出每个顶部带有 * 的系数，这样我就可以了解在每个新的回归中哪个是显着的。

你能帮我吗？

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")

此处 type = "text" 生成如下所示的 table，但是您可以将其更改为 html 并生成 html 等价物，如果您复制并粘贴 html 到纯文本文件并保存为 htm/html 然后在浏览器中打开，你会得到很好的格式 table.

如何导出到 excel: 运行 type="html" 的命令，复制 html 到 excel sheet ，就是这样。 Excel 将能够将整个 html 转换为漂亮的图表，如屏幕截图。

excel 的多元回归

Multiple regressions to excel

regression

export

r

lm