r - 从共享通用 aes 名称的两层生成的图例中删除一个 aes

Question

我的问题是我想在一个线图上叠加一个散点图，这两个图的颜色随着一个变量而变化。我只想保留一种颜色的图例。如果我使用 scale_colour_discrete(guide = "none") 它们都将消失。

一个可重现的例子是:

library(reshape2)

iris2 <- melt(iris, id.var = "Species")

ggplot(iris2, aes(x = variable, y = value, group = Species)) + 
    geom_point(aes(color = ifelse(value < 3, "type1", "type2"))) +
    geom_line(aes(color = Species))

我只想显示“物种”的图例，而不是类型。

Answer 1

在geom_point图层中设置show_guide=FALSE，

ggplot(iris2, aes(x = variable, y = value, group = Species)) + 
    geom_point(aes(color = ifelse(value < 3, "type1", "type2")), show_guide=FALSE) +
    geom_line(aes(color = Species)) + 
    scale_colour_discrete("Species", breaks=levels(iris2$Species))