R 在线性模型结果中保留因子标签

如何在线性模型中保留标签？如何在下面的系数表中标记坡度

Bar

或

xBar

dat <-  data.frame(
  y = c(1:3, 10:12),
  x = gl(2, 3, labels = c('Foo', 'Bar'))
)

coef(summary(mod <- lm(y ~ x, dat)))
#             Estimate Std. Error   t value     Pr(>|t|)
# (Intercept)      6.5  0.4082483  15.92168 0.0000909619
# x1              -4.5  0.4082483 -11.02270 0.0003850677

---

dat对我来说已经是这样了：

dat <-  data.frame(
  y = c(1:3, 10:12),
  x = gl(2, 3, labels = c('Foo', 'Bar'))
)

coef(summary(mod <- lm(y ~ x, dat)))
#             Estimate Std. Error   t value     Pr(>|t|)
# (Intercept)        2  0.5773503  3.464102 0.0257214207
# xBar               9  0.8164966 11.022704 0.0003850677


我明白了。你是对的。我忘了在一个干净的房间里试一试。一定是我在玩弄反差（更有可能）或是我加载的某个包导致了问题。