R ggplot：显示两条几何图形线之间间隙的显示线

我试图通过以下方式模拟此图：

---

但是我不知道如何画出橙色线和紫色线之间的间隙线（带标签）

这里有一个方法。我们需要为标签和段创建一个单独的数据集。然后我们可以使用

geom\u线

，

geom\u点

，

geom\u段

，以及

geom\u标签

：

library(tidyverse)

# create sample data
d <- data.frame(x = rep(1:5, 2),
                y = c(1:5, 5:9),
                category = rep(c("a", "b"), each = 5),
                stringsAsFactors = FALSE)

# filter on a specific x value, and reshape the data to be "wide"
d_wide <- d %>%
  filter(x == 5) %>%
  spread(category, y)

ggplot(d, aes(x, y))+
  geom_line(aes(colour = category))+
  geom_point(aes(colour = category))+
  geom_segment(data = d_wide,
               aes(xend = x, y = a, yend = b))+
  geom_label(data = d_wide,
             aes(label = b - a, y = (b+a) / 2))

库（tidyverse）
#创建示例数据
d%
排列（y类）
ggplot（d，aes（x，y））+
几何线（aes（颜色=类别））+
几何点（aes（颜色=类别））+
geom_段（数据=d_宽，
aes（x=x，y=a，y=b））+
geom_标签（数据=d_宽，
aes（标签=b-a，y=（b+a）/2））