如何使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

第二，通过以下链接准备分级背景；log background gradient 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

​

​