How to Calculate Percentages Across Multiple Variables While Maintaining User-Level Specificity in R Using Grouping by User ID