Linear Regression model building and prediction by group in R

Question

I\'m trying to build several models based on subsets (groups) and generate their fits. In other words, taking my attempts below into consideration, I\'m trying to build mode