Retain factor labels in linear model results

Question

How does one retain labels in linear models? How to have the slope labelled Bar or xBar in the coefficient table below?

dat <-  d