How to save temporary object within dplyr summarize so that multiple summary functions can refer to it?

Question

I am using dplyr to summarize a dataframe that contains many groups. The original data is density data over time for populations of organisms. For instance (where dots denot