GG图中附加点的图例 [英] Legend for additional points in a ggplot

问题描述

举这个问题的例子(Link)，我想问一下，是否可以在图例中添加额外的蓝点？

dat <- data.frame(cond = rep(c("A", "B"), each=10),
              xvar = 1:20 + rnorm(20,sd=3),
              yvar = 1:20 + rnorm(20,sd=3))
g1 <- dat[15,]

ggplot(dat, aes(x = xvar, y = yvar, shape = cond, 
                     colour = cond), size = 2.5) + 
geom_point(alpha = 1) +
geom_point(data = g1, colour = "blue", size = 4, show_guide = FALSE)

推荐答案

您可以将Additional Points层的美学效果放在aes内部，而不是放在外部以将其添加到图例中。您可以使用任何字符串值；该字符串将是图例中的名称。

然后您可以通过scale_*_manual层控制该点的颜色和形状。

我还使用override.aes更改了图例中该点的大小，这是可选的。

ggplot(dat, aes(x = xvar, y = yvar, shape = cond, 
                colour = cond), size = 2.5) + 
     geom_point(alpha = 1) +
     geom_point(data = g1, aes(colour = "Point 15", shape = "Point 15"), size = 4) +
     scale_shape_manual(values = c(16, 17, 17) ) +
     scale_color_manual(values = c("pink", "turquoise", "blue") ) +
     guides(color = guide_legend( override.aes = list(size = c(1.5, 1.5, 4) ) ) )

这篇关于GG图中附加点的图例的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！