using dplyr to widen data, automatically order vars and sum widened columns

Question

I\'m trying to perform some functions I\'ve already completed/gotten help with but I\'d like to add some more columns using the results I have. I want to do a total of each