Rename constant term using stargazer

Question

I'd like to add the control group mean to my regression tables in Stargazer . My current idea is to replace the intercept with the control group mean and rename that term. I know how to replace the value of the intercept, but is there a way to rename the intercept term? It's often informative to replace the constant term with the control group mean.

library(stargazer)

attitude$treatment <- rbinom(n = 30, size = 1, prob = .5)
lm_model <- lm(rating ~ treatment + complaints + privileges + learning 
           + raises + critical, data=attitude)

#add in control mean
control_mean <- mean(attitude[attitude$treatment == 0, "rating"])
lm_model[["coefficients"]][names(lm_model[["coefficients"]]) == 
                         "(Intercept)"] <- control_mean

stargazer(lm_model)

Answer 1

# Rename intercept
names(lm_model$coefficients)[1]

# Change value of intercept to control_mean
lm_model$coefficients[1] = control_mean

This isn't really a stargazer question, but is just a matter of how to modify a model object.