如何重命名R中lm的summary（）中的系数？

Question

我有很多交互术语，我希望将这些系数的名称输出到LaTeX，而不是那么麻烦。

我不想事先在我的数据框架中生成所有交互，这是一个很大的麻烦。

Answer 1

不确定您是否只是要更改名称，但如果是这样，那么您就是这样做的。

a <- runif(100,0,100)
b <- 3*a+runif(100,0,50)
c <- 4*a+runif(100,0,60)
fit <- lm(a~b+c)
names(fit$coefficients) <- c('bob','sally','sue')
summary(fit)
#    Call:
#lm(formula = a ~ b + c)
#
#Residuals:
#    Min      1Q  Median      3Q     Max 
#-5.8876 -2.0380  0.0111  1.6112  6.4377 
#
#Coefficients:
#      Estimate Std. Error t value Pr(>|t|)    
#bob   -8.72283    0.68552  -12.72   <2e-16 ***
#sally  0.15337    0.01484   10.33   <2e-16 ***
#sue    0.13740    0.01110   12.38   <2e-16 ***
#---
#Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#
#Residual standard error: 2.945 on 97 degrees of freedom
#Multiple R-squared:  0.9893,   Adjusted R-squared:  0.9891 
#F-statistic:  4472 on 2 and 97 DF,  p-value: < 2.2e-16