एक dplyr स्टेटमेंट लिखें एक डेटाफ्रेम लेता है, इसे "सुपर भयानक" के लिए स्वाद स्ट्रिंग कॉलम द्वारा फ़िल्टर करता है, फिर pct_sugar नामक एक नया कॉलम बनाता है जो कुल_शुगर मीट्रिक लेता है और इसे बड़े पैमाने पर विभाजित करता है
df_filtered <- df %>%
              filter(taste_string == "सुपर भयानक") %>%
              mutate(pct_sugar = total_sugar / sum(total_sugar) * 100) %>%
              group_by(taste_string) %>%
              summarise(avg_pct_sugar = mean(pct_sugar))