Блог

Я пытаюсь построить несколько линий с помощью ggplot2. Ниже приведен пример кода. Я хотел бы отобразить переменные (класс) от 1 до 3 серым цветом и среднее значение красным цветом.

 library('reshape2')
library('ggplot2')

times <- seq(100, 1000, by=100)
values <- data.frame(runif(10), runif(10), runif(10))
mean <- rowMeans(values)
df <- data.frame(times, values, mean)
names(df)=c("time", 1:3, 'means')

melted = melt(df, id.vars = "time", value.name="values",
              variable.name="class")
plot <- ggplot(data=melted, aes(x=time, y=values, group = class))   geom_line()   labs(y= "Values", x = "Time")
 

 ggplot(
  data=melted, 
  aes(x=time, y=values, color = class == "means", group = class)
)   
  geom_line()   
  labs(y= "Values", x = "Time")   
  scale_color_manual(values = c("grey", "red"))