Extract Slopes by group, Broom? Dplyr?

Excellent solution, Hadley!
Is there a way to have a column that shows the Tree number with the output?