Turn analysis code into a function

somewhere we have
``` r

mtcars |>
# TODO: turn into a function which uses the number of cyl as an arg
filter(cyl == 4) |>
ggplot(aes(x = wt)) +
geom_histogram()

```
this could be a function! :)

Localiza el código de R que contiene la canalización de mtcars, ya que el issue no identifica ningún archivo. Empieza revisando el código existente de filter y ggplot; se considera terminado cuando lo hayas extraído en una función que acepte como argumento el número de cilindros y conserve la salida del histograma.

Escrito por el modelo de indexación a partir del texto del issue.