annotate grouped linear models with dplyr, broom, and ggplot

Question

I am starting to delve into broom to visualize simple statistical analysis in dplyr/ggplot. I worked out how to get linear models by grouping to work well using by tying in