streamline code using count instead of group_by

tntp · Sep 27, 2023 · 600a146 · 600a146
1 parent da31569
commit 600a146
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/vignettes/visualization-cookbook.Rmd b/vignettes/visualization-cookbook.Rmd
@@ -421,9 +421,7 @@ teacher_survey_he <- teacher_survey |>
 teacher_survey_he_perc <- teacher_survey_he |> 
   drop_na("response") |>
   # calculate the number of responses for each response option
-  group_by(question, response) |>
-  count(name = 'n_response') |>
-  ungroup() |> 
+  count(question, response, name = 'n_response') |>
   # calculate the number of responses for each question
   group_by(question) |>
   mutate(n_question = sum(n_response)) |>