Vi que esta pregunta relacionada se hizo en 2010 (titulada:¿Cómo se establecen diferentes límites de escala para diferentes facetas?) y me gustaría saber si todavía es posible tener diferentes descansos para diferentes facetas?

La razón es que quiero solo valores enteros en el gráfico inferior (con rupturas de 50 para el gráfico superior) de la siguiente gráfica:

Código para reproducir la imagen:

dat <- data.frame(date=seq(0, 729, 1), Var1=round(seq(from=0, length.out=730, by=0.2)),   Var2=round(seq(from=5, length.out=730, by=0.01))  )
dat.m <- melt(dat, id.var="date")
ggplot(dat.m, aes(date,  value)) + 
      scale_x_continuous(name="Time") + 
      expand_limits(y=0) +
      ylab("Variable") + 
      geom_step() + 
      facet_grid(variable~., scales="free_y")+ 
      scale_y_continuous(breaks = seq(0, 150, by = 1))