y <- c(3, 7, 9, 8)
sqrt(sum(y))
## [1] 5.196152
y %>% sum() %>% sqrt()
## [1] 5.196152
mtcars %>%
filter(mpg > 20) %>% # mtcars vai para o $1^º$ argumento de filter()
group_by(cyl) %>% # resultado do filter() vai para group_by()
summarise(media_hp = mean(hp)) # resultado do group_by() vai para #summarise()
## # A tibble: 2 × 2
## cyl media_hp
## <dbl> <dbl>
## 1 4 82.6
## 2 6 110