r - 有没有办法为ggplot的alpha添加图例？

Question

我有一个有很多重叠点的图(从 2 到 10)。将抖动添加到点会使其非常嘈杂且没有吸引力。我喜欢在美学中添加一个 alpha。但是，我想要一个图例，让读者可以看到每个透明胶片有多少点重叠。有这样的方法吗？

ggplot(data=mydata,aes(x=x,y=y)) + geom_point(size=3,shape=2,aes(alpha=1/3))

假设我使用上面的代码。我将如何为 alpha 加入传奇？

Answer 1

这是一个如何伪造这个的例子。尝试几次，同时改变 alpha .

require(ggplot2)

n = 10000
alpha = 0.01

set.seed(12345)
data = data.frame(replicate(2, rnorm(n)))

dev.new(width=4, height=3)
p = qplot(X1, X2, data=data, alpha=alpha)

fake_scale = scale_alpha('# of overlapping pts', breaks=pretty(c(alpha, 1)), labels=as.character(pretty(c(alpha, 1))/alpha))

p + fake_scale

alpha = 0.1

alpha = 0.01