使用geom_ribbon(ggplot2)绘制具有变化颜色的两个时间序列之间的差异

这就更接近了,尽管在值相等的点没有行的情况下仍然失败。根据您的需要,您可以计算2008年和2009年之间的交叉点,并将其人工添加到您的数据集。

data$minval <- pmin(data$imports, data$exports)

ggplot(data, aes(x = year)) +
  geom_ribbon(aes(ymin = minval, ymax = exports), fill = "blue") +
  geom_ribbon(aes(ymin = minval, ymax = imports), fill = "red")

stat_difference()

library(ggh4x)

df <- data.frame(
  x = 1:100,
  y = cumsum(rnorm(100)),
  z = cumsum(rnorm(100))
)

ggplot(df, aes(x = x)) +
  stat_difference(aes(ymin = y, ymax = z), alpha = 0.3) +
  geom_line(aes(y = y, colour = "min")) +
  geom_line(aes(y = z, colour = "max"))