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