ggplot scale alpha连续填充颜色

Question

我试图创建一个 alpha 图，但找不到正确的方法。我尝试了不同的组合来弄清楚，我已经差不多了，但我需要一点帮助。
我的问题是如何去掉图中的蓝色。

我的脚本是`

p <- ggplot(df, aes(x=x, y=y))
p + geom_hex(aes(alpha=..count..),bins=20)+
  scale_x_log10("ratio following/followers",
                labels = trans_format("log10", math_format(10^.x))) + 
  scale_y_log10("ratio messages received/sent", 
                labels = trans_format("log10", math_format(10^.x))) +
  theme_bw() + 
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(), panel.grid.minor=element_blank(),
        plot.background = element_blank())+ 
  #guides(fill=FALSE)+
  scale_alpha_continuous ("Counts",breaks=c(0,2000,4000,6000,8000,10000))+
  geom_vline(xintercept =1, color="red", size=0.25, linetype=5)+
  geom_hline(yintercept =1, color="red", size=0.25, linetype=5) +
  annotate('text', x=500, y=0.01, size=3, label="4\ncommon\nusers") +
  annotate('text', x=0.0001, y=0.01, size=3, label="3\nbroadcasters") +
  annotate('text', x=0.0001, y=7000, size=3, label="1\ninfluentials") +
  annotate('text', x=500, y=7000, size=3, label="2\nhidden\ninfluentials")

这个脚本创建了这个情节

我可以通过激活脚本中的 "guides(fill=FALSE)+" 行来摆脱蓝色图例，它给出了这个：

You can reach sample data from here

感谢@Didzis Elferts 的回答。我无法确定图例和情节中断颜色。如您所见，这些图片 10K 和 8K 具有相同的颜色（我说得对吗！）所以 10K 应该更暗，不应该。

Answer 1

函数 geom_hex() 默认情况下将计数映射到填充，因此您获得填充渐变（默认为蓝色）。如果您只想将地图计数转换为 alpha 值，则必须将 geom_hex() 的 aes() 之外的 fill = 分配给某种颜色（以 grey45 为例）。由于 fill = 设置在 aes() 之外，因此不会有填充值的图例。

p + geom_hex(aes(alpha=..count..),bins=20, fill = "grey45")+ ...

ggplot scale alpha连续填充颜色

ggplot scale alpha continuous fill color

r

ggplot2

legend

alpha

fill