从 R 中的 lm 输出中删除系数

Question

我想从 R 中普通最小二乘 lm() 模型的输出中删除所有 as.factor 元素。最后一行不起作用，但例如：

frame <- data.frame(y = rnorm(100), x= rnorm(100), block = sample(c("A", "B", "C", "D"), 100, replace = TRUE))
mod <- lm(y ~ x + as.factor(block), data = frame)
summary(mod)

summary(mod)$coefficients[3:5,] <- NULL

有没有办法删除所有这些元素，使保存的“lm”对象不再有它们？谢谢。

Answer 1

一种选择是使用 lfe 包中的 felm 函数。

如包装内所述：

该包适用于具有多组固定效应的线性模型，即具有 2 个或更多因子的大量水平。它执行与lm类似的功能，但它使用一种特殊方法从正规方程中投影出多组固定效应，因此速度更快。

set.seed(123)
frame <- data.frame(y = rnorm(100), x= rnorm(100), block = sample(c("A", "B", "C", "D"), 100, replace = TRUE))
id<-as.factor(frame$block)
mod <- lm(y ~ x + id, data = frame) #lm
summary(mod)
Call:
lm(formula = y ~ x + id, data = frame)

Residuals:
     Min       1Q   Median       3Q      Max 
-2.53394 -0.68372  0.04072  0.67805  2.00777 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)  
(Intercept)  0.18115    0.17201   1.053   0.2950  
x           -0.08310    0.09604  -0.865   0.3891  
idB          0.04834    0.24645   0.196   0.8449  
idC         -0.51265    0.25052  -2.046   0.0435 *
idD          0.04905    0.26073   0.188   0.8512  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.9002 on 95 degrees of freedom
Multiple R-squared:  0.06677,   Adjusted R-squared:  0.02747 
F-statistic: 1.699 on 4 and 95 DF,  p-value: 0.1566


library(lfe)
est <- felm(y ~ x| id)
summary(est)

Call:
   felm(formula = y ~ x | id, data = frame) 

Residuals:
     Min       1Q   Median       3Q      Max 
-2.53394 -0.68372  0.04072  0.67805  2.00777 

Coefficients:
  Estimate Std. Error t value Pr(>|t|)
x -0.08310    0.09604  -0.865    0.389

Residual standard error: 0.9002 on 95 degrees of freedom
Multiple R-squared(full model): 0.06677   Adjusted R-squared: 0.02747 
Multiple R-squared(proj model): 0.00782   Adjusted R-squared: -0.03396 
F-statistic(full model):1.699 on 4 and 95 DF, p-value: 0.1566 
F-statistic(proj model): 0.7487 on 1 and 95 DF, p-value: 0.3891

P.S。 Stata 的类似程序是 reghdfe。

从 R 中的 lm 输出中删除系数

Remove coefficients from lm output in R

r

lm