Buen día.
Actualmente tengo el siguiente código:
estaciones[[1]]-> est1
pdf("0011105020-0068/0011105020 - Abril.pdf")
ggplot(est1, aes(x = hora, y = p05)) +
ggtitle("0011105020 - Abril") +
xlab("Hora") +
ylab("Temperatura") +
geom_line()+
geom_line(data = est1, aes(x = hora, y = p5)) +
geom_line(data =est1, aes(x = hora, y = p95))
dev.off()
Que me genera el siguiente gráfico:
Deseo cambiar el color de cada línea (cada una corresponde a un percentil diferente (0.05, 0.5, 0.95) y, además, que a a un costado salga una mini leyenda indicando precisamente cuál línea/color corresponde a cada percentil.
He intentado de varias maneras pero no logró dar con la forma de que la leyenda o el color salga correctamente.
¿Cómo podría hacerlo?
Muchas gracias!
Adjunto un archivo de datos para hacer más práctica la cuestión:
https://drive.google.com/drive/folders/135Bp3Nr28cLJe79HqjMla8qhkjPTzYcJ?usp=sharing