在ggplot2圖例中移除點透明度

Question

在ggplot2中，在圖例中反映了geom_XXX中定義的透明度。例如：

df <- data.frame(x=runif(10000), z=ifelse(runif(10000) > 0.5, 'a', 'b')); df$y <- runif(10000); df$y[df$z == 'b'] <- cos(df$x[df$z == 'b']*10) 
ggplot(df) + geom_point(aes(x, y, color=z), alpha=0.1) 

給出以下結果：

由於點是非常透明的，它們幾乎不可見的圖例。我想從圖例中刪除點的透明度，從而使圖形看起來像這樣：

這怎麼可能？

Answer 1

您可以使用功能guides()和override.aes=來爲圖例條目設置alpha值。

ggplot(df) + geom_point(aes(x, y, color=z), alpha=0.1)+ 
    guides(colour = guide_legend(override.aes = list(alpha=1)))