ggplot2中微调图例键的问题

Question

我正在尝试使用 theme() 和 guides() 函数使图例键与绘图完全匹配。

从这个情节开始：

library(ggplot2)
data(mpg)

mpg$year <- as.numeric(mpg$year)
means <- tapply(mpg$displ, list(mpg$year), FUN = mean)
means <- as.data.frame(means)
means$year <- as.numeric(row.names(means))
names(means)[1] <- "displ"

p1 <- 
  ggplot(mpg, aes(x = year, y = displ)) +
  geom_jitter(aes(color = "points")) +
  geom_errorbar(data = means, aes(ymin = displ, ymax = displ, 
    color = "mean")) +
  scale_x_continuous(breaks = c(1998, 2008))

p1

我得到一个情节，我可以使用以下方法修改图例键：

p1 + theme(legend.key = element_rect(fill = NA), 
legend.title = element_blank()) + 
guides(color = guide_legend(override.aes = 
list(shape=c(NA, 16), linetype=c(1, 0), fill = c(NA, NA))))

得到想要的结果：

但是，当情节还包含geom_ribbon() 时，同样的方法会失败：

p2 <- 
  ggplot(mpg, aes(x = year, y = displ)) +
  geom_jitter(aes(color = "points")) +
  geom_ribbon(aes(ymin = 3, ymax = 4, color = "ribbon"), 
    fill = "green", alpha = 0.5) +
  geom_errorbar(data = means, aes(ymin=displ, ymax=displ, 
    color="mean")) +
  scale_x_continuous(breaks = c(1998, 2008))

p2 + theme(legend.key = element_rect(fill = NA), 
  legend.title = element_blank()) + 
  guides(color = guide_legend(override.aes = 
    list(shape=c(NA, 16, NA), linetype=c(1, 0, 0), 
    fill = c(NA, NA, "green"))))

要明确：我希望代表平均值的图例键显示为一条直的红线，就像在第一个图中一样，没有边框，没有对角线。

（我意识到我可以使用 stat_summary() 而不是创建单独的数据框，但这不适用于我的实际项目）。

感谢您的建议，

拉斯

---

Answer 1

这可能有点小技巧，但我从 geom_ribbon 中删除了图例，并在图例中添加了色带颜色作为点类型 (pch = 15)。 颜色还不完美，但我敢打赌你可以做到。

p2 <- 
  ggplot(mpg, aes(x = year, y = displ)) +
  geom_jitter(aes(color = "points")) +
  geom_ribbon(aes(ymin = 3, ymax = 4, color = "ribbon"), 
              fill = "green", alpha = 0.5, show.legend = FALSE) +
  geom_errorbar(data = means, aes(ymin=displ, ymax=displ, 
                                  color="mean")) +
  scale_x_continuous(breaks = c(1998, 2008))

p2 + theme(legend.key = element_rect(fill = NA), 
           legend.title = element_blank()) + 
  guides(color = guide_legend(override.aes = 
                                list(shape=c(NA, 16, 15), linetype=c(1, 0, 0), 
                                     color = c("red", "green", "green"),
                                     alpha = c(1,1,.5),
                                     size = c(1,2,6))))