Skip to main content
Nueva forma
Origen Enlace
Dragg
  • 153
  • 1
  • 9

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

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

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')
Origen Enlace
Dragg
  • 153
  • 1
  • 9

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