Изменение имен факторов в логистической регрессии

Позвольте мне начать с представления данных в качестве примера.

set.seed(1)
x1=rnorm(10)
y=as.factor(sample(c(1,0),10,replace=TRUE))
x2=sample(c('Young','Middle','Old'),10,replace=TRUE)
model1 <- glm(y~as.factor(x1>=0)+as.factor(x2),binomial)

Когда я ввожу summary(model1), я получаю

 Estimate Std. Error z value Pr(>|z|)
(Intercept)              -0.1835     1.0926  -0.168    0.867
as.factor(x1 >= 0)TRUE    0.7470     1.7287   0.432    0.666
as.factor(x2)Old          0.7470     1.7287   0.432    0.666
as.factor(x2)Young       18.0026  4612.2023   0.004    0.997

Пожалуйста, игнорируйте оценки модели как таковые, так как данные являются поддельными
Есть ли способ в R изменить имена оценок, отображаемых в крайнем левом столбце, чтобы чтобы они выглядели четче? Например. удалить as.factor и поставить _перед уровнем фактора. Вывод должен быть следующим:

                Estimate Std. Error z value Pr(>|z|)
(Intercept)      -0.1835     1.0926  -0.168    0.867
(x1 >= 0)_TRUE    0.7470     1.7287   0.432    0.666
(x2)_Old          0.7470     1.7287   0.432    0.666
(x2)_Young       18.0026  4612.2023   0.004    0.997