Aggregate subset values based on string names and calculate % of that value in R

Question

I have a subset. I would like to aggregate the hobby column so that each hobby has its own column name and values. The preferable result would be like step 2. But I will hap