如何使geom_ribbon在ggplot2中具有漸變顏色

Question

我想讓geom_ribbon具有漸變顏色。

例如，我有如下data.frame ；

df <-data.frame(Day = c(rnorm(300, 3, 2.5), rnorm(150, 7, 2)), # create random data
                Depth = c(rnorm(300, 6, 2.5), rnorm(150, 2, 2)),
                group = c(rep('A', 300), rep('B', 150))) # add two groups

使用這個data.frame ，我使用geom_ribbon制作ggplot如下

gg <-
  ggplot(data=df,aes(x=Day))+  
  geom_ribbon(aes(ymin=Depth,ymax=max(Depth)),alpha = 0.25)+
  ylim(max(df$Depth),0)+
  facet_wrap(~group,scales = "free_x",ncol=2)+
  labs(x="Days(d)",y="Depth (m)")
gg

, 繪制如下圖；

在這里，我想通過 y 軸的值（即df$Depth ，在這種情況下）使色帶具有漸變顏色。 但是，我不知道該怎么做。

我可以通過 geom_point 來做到這一點，如下所示；

gg <- gg + 
  geom_point(aes(y=Depth,color=Depth),alpha = 1, shape = 20, size=5)+
  scale_color_gradient2(midpoint = 5, 
                        low = "red", mid="gray37", high = "black",
                        space ="Lab")
gg  

但是，我希望通過填充色帶區域來實現色帶上的顏色漸變，而不是在每個點上。 您對geom_ribbon有什么建議嗎？

Answer 1

我不知道這是否完美，但我找到了我想要的解決方案如下；

首先，我准備data.frame；

df <-data.frame(Day = c(rnorm(300, 7, 2), rnorm(150, 5, 1)), # create random data
                Depth = c(rnorm(300, 10, 2.5), rnorm(150, 7, 2)),
                group = c(rep('A', 300), rep('B', 150))) # add two groups

其次，按照鏈接准備漸變背景； 日志背景漸變ggplot

xlength <- ceiling(max(df$Day))
yseq <- seq(0,max(df$Depth), length=100)
bg <- expand.grid(x=0:xlength, y=yseq) # dataframe for all combinations

第三，使用ggplot2 ；

gg <- ggplot() +  
  geom_tile(data=bg, 
            aes(x=x, y=y, fill=y),
            alpha = 0.75)+ # plot the gradation
  scale_fill_gradient2(low='red', mid="gray37", high = "black", 
                        space ="Lab",midpoint = mean(df$Depth)/2)+ #set the color
  geom_ribbon(data=df,
              aes(x=Day,ymin=0,ymax=Depth),
              fill = "gray92")+ #default ggplot2 background color
  ylim(max(df$Depth),0)+
  scale_x_continuous()+
  facet_wrap(~group,scales = "free_x",ncol=2)+
  labs(x="Days(d)",y="Depth (m)")+
  theme(panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank())  

 gg