使用 ggplot2 在 R 中的折线图下方创建彩色区域

Question

我正在使用上面的折线图，它是由代码生成的：

ggplot(data=df) + geom_line(aes(x=date,y=germany,col="Germany")) +
  geom_line(aes(x=date,y=korea,col="Coreia do Sul"))  +  
  scale_color_manual(values=c("black","blue")) +
  ylab("Confirmed cases")

dataframe df的第一行是：

  date             germany  korea
1 2020-01-22       0        1
2 2020-01-23       0        0
3 2020-01-24       0        1
4 2020-01-25       0        0
5 2020-01-26       0        1
6 2020-01-27       1        1

我想在曲线下方创建彩色区域，如下所示： 可能吗？ 提前致谢！

Answer 1

这是一种基本方法。 作为概念的说明性证明，让我们将两个函数y1(x) = sin(x) + 1和y2(x) = max(0, 8cos(x)exp(-.3x))放在 [0, 5 *pi] 表示一些任意数据：

# libraries dplyr, tibble
df <- seq(0, 5*pi, by=.01) %>% 
    enframe(value="x") %>%
    mutate(y1=sin(x) + 1, y2=pmax(0, 8 * cos(x) * exp(-.3 * x) + 1));

然后我们可以使用（对于 0.5 和 1.5 处的任意断点）：

df %>%
  mutate(ymax=pmax(y1, y2)) %>%
  ggplot(aes(x, y1)) + 
  geom_ribbon(aes(ymin=pmin(ymax, 0),   ymax=pmin(ymax, 0.5)), fill='green') +
  geom_ribbon(aes(ymin=pmin(ymax, 0.5), ymax=pmin(ymax, 1.5)), fill='yellow') +
  geom_ribbon(aes(ymin=pmin(ymax, 1.5), ymax=pmin(ymax, max(ymax))), fill='red') +
  geom_point() +
  geom_point(aes(y=y2), color='blue')

产生曲线下的彩色区域：