facet_zoom
executeu aquest codi
https://stackoverflow.com/questions/42626929/manipulate-y-axis-scale-using-ggforce-facet-zoom
library(dplyr)
library(ggplot2)
library(ggforce)
library(stringr)
airquality %>% 
    mutate(month_day = seq(as.Date("2000/1/1"), 
                           by = "month", 
                           length.out = n())) %>% 
    ggplot(aes(x = month_day, y = Temp)) + 
    geom_line() +
    facet_zoom(x = month_day > "2010/1/1" & month_day < "2010/9/1")