Extract state level percentages from a dataframe in R - Better solutions?

Question

I\'ve a dataframe with state level info, and I need to be able to extract that info and store it in a better format.

And the output required is