Assigning Regression Coefficients of a Factor Variable to a New Variable According to Factor Levels in R