library(dplyr)
mtcars %>%
select(mpg, cyl, hp) %>%
group_by(cyl) %>%
summarise(mean(hp))
## # A tibble: 3 × 2
## cyl `mean(hp)`
## <dbl> <dbl>
## 1 4 82.6
## 2 6 122.
## 3 8 209.
See this pipeline in Tidy Data Tutor
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.