```{.r code-line-style="focus:3" code-line-style-preset="emphasis"} df |> ... ```
df |> filter(cyl == 6) |> group_by(gear) |> summarise(m = mean(mpg)) |> arrange(desc(m))
```{.r code-line-style="dim:1-2,focus:3,dim:4-5" code-line-style-preset="emphasis"} ```
```{r} #| code-line-style: #| preset: emphasis #| steps: #| - { dim: 1-2 } #| - { focus: 3, dim: [1-2, 4-5] } #| - { strong: 3, dim: [1-2, 4-5] } ```
mtcars |> dplyr::filter(cyl == 6) |> dplyr::group_by(gear) |> dplyr::summarise(m = mean(mpg)) |> dplyr::arrange(dplyr::desc(m))