Добавить отдельные затененные участки вокруг нескольких линий в ggplot2 объекте

Question

Скажем, я создаю простой сюжет с помощью ggplot:

data(mtcars) 
var1 <- mtcars$mpg 
var2 <- mtcars$mpg + 5 
df <- melt(cbind(var1,var2)) 
ggplot(df,aes(x=X1, y=value,color=X2))+geom_line() 

Я хотел бы обратить затененную область над каждой нарисованной линией.

Проблема в том, что я хотел бы использовать разные значения для каждой строки.

Я пробовал использовать geom_ribbon(), но я мог предоставить только значения заштрихованной области для одной из строк, но не для нескольких строк.

Есть ли способ построить geom_ribbon() для каждой линии отдельно?

Answer 1

Это то, что вы хотите?

data(mtcars) 
var1 <- mtcars$mpg 
var2 <- mtcars$mpg + 15 
df <- melt(cbind(var1,var2)) 
df$shadv <- rep(c(2,6),each=length(var1)) 
df1 <- df[df$X2=="var1",] 
df2 <- df[df$X2=="var2",] 
ggplot(df,aes(x=X1, y=value,color=X2))+ 
    geom_ribbon(data=df1,aes(x = X1,ymin = value - shadv, ymax = value + shadv), inherit.aes = FALSE,fill = "lightblue")+ 
    geom_ribbon(data=df2,aes(x = X1,ymin = value - shadv, ymax = value + shadv), inherit.aes = FALSE,fill = "lightgreen")+ 
    geom_point()+geom_line()