Tengo el siguiente data frame:
datos_2 <- data.frame(fecha = seq.Date(ymd("2017-08-15"), ymd("2017-08-27"), length.out = 14), temperatura = c(25.0, 26.7, 26.6, 25.2, 25.1, 27.6, 27.0, 28.8, 26.2, 24.3, 24.4, 24.8, 24.7, 26.3), humedad_rel = c(88.8, 86.7, 86.1, 86.4, 86.9, 88.7, 89.1, 85.8, 90.9, 88.0, 85.7, 87.4, 84.9, 84.9), fluctuacion_tronco = c(297.7, 278.9, 251.7, 231.3, 270.9, 346.4, 342.1, 331.7, 370.0, 283.5, 186.4, 255.6, 189.5, 193.0))
Y utilizo el siguiente código para obtener un gráfico en facetas:
datos_2<- gather(data = datos_2, key = "variable", value = "valor", -fecha)
ggplot(datos_2, aes(x = fecha, y = valor)) +
geom_line() +
scale_x_date(breaks = datos_2$fecha, date_breaks = "2 days") +
facet_wrap(~variable, nrow = 3, scales = "free_y",
strip.position = "left") +
labs(x = "Fecha",
y = NULL,
title = "Contracción Diaria del Tronco (CDT) vs Factores",
subtitle = "Gráfico por día") +
theme_light() +
theme(strip.placement = "outside",
axis.text = element_text(size = 8))
Y obtengo el gráfico:
Necesito "partir" el gráfico en dos, ya que la fecha 2017-08-18 marca dos temporadas distintas para mi estudio, pensé en hacer una linea vertical con geom_vline pero solo he conseguido romperme la cabeza buscando el error (u horror), ayuda por favor, en:
- Hacer una linea vertical que divida todo el gráfico en la fecha 2017-08-18, y
- Poner una anotación dentro del gráfico, en el cual pueda indicar algo como "temporada 1" y "temporada 2".
Gracias de antemano!