如何在具有相同“y”的线条之间着色？

Question

我在 geom_polygon 和 geom_ribbon 之间尝试了几个小时，但我无法让它工作。我正在寻找两条线之间的区域（我研究了很多）。看，图的两个轴都是数字，两条线共享相同的 y 轴，因此，我无法让它工作计算 ymin 或最大。有什么想法吗？我会非常感激的。这是我的代码：

ggplot(npsmelt,aes(Score,Unresolved)) + 
    geom_line(aes(linetype=Metric, color=Metric)) +
    theme(legend.position="top", legend.title = element_blank()) +
    geom_point(aes(color=Metric)) +
    theme(plot.caption=element_text(size=8, margin=margin(t=10))) + 
    scale_x_continuous(breaks=seq(54,70,1)) + 

    geom_ribbon(data=subset(npsmelt, 
         Score[Metric=="Old.NPS"]<Score[Metric=="New.NPS"]),
         aes(ymin =0, ymax =..y..), alpha=0.10)

结果图：

我的数据：

Unresolved  Metric  Score
    5   New.NPS 66.48
    6   New.NPS 65.32
    7   New.NPS 64.16
    8   New.NPS 63
    9   New.NPS 61.84
   10   New.NPS 60.68
    5   Old.NPS 68.5 
    6   Old.NPS 62.28
    7   Old.NPS 61.74
    8   Old.NPS 61.41
    9   Old.NPS 61.67
   10   Old.NPS 60.42

dput:

structure(list(Unresolved = c(5L, 6L, 7L, 8L, 9L, 10L, 5L, 6L, 
7L, 8L, 9L, 10L), Metric = c("New.NPS", "New.NPS", "New.NPS", 
"New.NPS", "New.NPS", "New.NPS", "Old.NPS", "Old.NPS", "Old.NPS", 
"Old.NPS", "Old.NPS", "Old.NPS"), Score = c(66.48, 65.32, 64.16, 
63, 61.84, 60.68, 68.5, 62.28, 61.74, 61.41, 61.67, 60.42)), .Names = c("Unresolved", 
"Metric", "Score"), row.names = c(NA, -12L), class = "data.frame")

Answer 1

在我看来，这是一种罕见的情况，最好将数据集设为“宽”格式。

我将为geom_line 和geom_point 使用长格式，然后为geom_ribbon 切换到宽格式。

library(ggplot2)
library(tidyr)

ggplot(df, aes(Unresolved, Score, group = Metric, color = Metric)) +
  geom_line() +
  geom_point() +
  geom_ribbon(data = spread(df, Metric, Score), 
              aes(x = Unresolved, ymin = New.NPS, ymax = Old.NPS), 
              alpha = .2,
              inherit.aes = FALSE)

注意inherit.aes = FALSE，它是必需的，否则geom_ribbon 将尝试使用映射到y 的Score 列。

数据：

df <- structure(list(Unresolved = c(5L, 6L, 7L, 8L, 9L, 10L, 5L, 6L, 
7L, 8L, 9L, 10L), Metric = c("New.NPS", "New.NPS", "New.NPS", 
"New.NPS", "New.NPS", "New.NPS", "Old.NPS", "Old.NPS", "Old.NPS", 
"Old.NPS", "Old.NPS", "Old.NPS"), Score = c(66.48, 65.32, 64.16, 
63, 61.84, 60.68, 68.5, 62.28, 61.74, 61.41, 61.67, 60.42)), .Names = c("Unresolved", 
"Metric", "Score"), row.names = c(NA, -12L), class = "data.frame")