Cohort 10 ch 12 (logicals): group inside summarize()

r4ds · Jan 26, 2024 · 131cb69 · 131cb69
1 parent 67f502d
commit 131cb69
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/12-logical_vectors.Rmd b/12-logical_vectors.Rmd
@@ -242,11 +242,10 @@ flights$dep_time[flights$arr_delay > 0]
 
 ```{r}
 flights |> 
-  group_by(year, month, day) |> 
   summarize(
     all_delayed = all(dep_delay <= 60, na.rm = TRUE),
     any_long_delay = any(arr_delay >= 300, na.rm = TRUE),
-    .groups = "drop"
+    .by = c(year, month, day)
   )
 ```
 
@@ -255,24 +254,22 @@ flights |>
 
 ```{r}
 flights |> 
-  group_by(year, month, day) |> 
   summarize(
     proportion_delayed = mean(dep_delay <= 60, na.rm = TRUE),
     count_long_delay = sum(arr_delay >= 300, na.rm = TRUE),
-    .groups = "drop"
+    .by = c(year, month, day)
   )
 ```
 
 ## Summarizing logical vectors (4) {-}
 
 ```{r}
 flights |>
-  group_by(year, month, day) |>
   summarize(
     behind = mean(arr_delay[arr_delay > 0], na.rm = TRUE),
     ahead = mean(arr_delay[arr_delay < 0], na.rm = TRUE),
     n = n(),
-    .groups = "drop"
+    .by = c(year, month, day)
   )
 ```