Resuelvo la duda de una forma muy tosca, seguro que hay otra más simple y corta. Se crean 3 estructuras con las columnas: px
(valor del percentil), hora
y Type
(tipo de percentil) , la idea es crear una variable que sirva para distinguir un valor de otro y así, obtener un color por cada columna:
library(readr)
library(dplyr)
estaciones<- read_csv("Abril.csv")
df1 <- estaciones %>%
select(p05,hora)%>%
mutate(Type = 'p05')
df2 <- estaciones %>%
select(p5,hora)%>%
mutate(Type = 'p5')
df3 <- estaciones %>%
select(p95,hora)%>%
mutate(Type = 'p95')
ggplot(df1, aes(x = hora, y = p05, color = Type)) +
ggtitle("0011105020 - Abril") +
xlab("Hora") +
ylab("Temperatura") +
geom_line()+
geom_line(data = df2, aes(x = hora, y = p5, color = Type)) +
geom_line(data =df3, aes(x = hora, y = p95,color = Type))
O simplemente, añadir el tipo manualmente y cambiar el título de la leyenda como guste.
ggplot(estaciones, aes(x = hora, y = p05, color = "p05")) +
ggtitle("0011105020 - Abril") +
xlab("Hora") +
ylab("Temperatura") +
geom_line()+
geom_line(data = estaciones, aes(x = hora, y = p5, color = "p5")) +
geom_line(data = estaciones, aes(x = hora, y = p95,color = "p95")) +
labs(color='Tipo de percentil')