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")