ggplotスケールアルファ連続塗りつぶしの色

Question

アルファプロットを作成しようとしましたが、正しい方法が見つかりませんでした。私は理解するためにさまざまな組み合わせを試して、私はほとんどそこにいたが、私は少し助けが必要です。
私の質問は、どのように私はプロットで青い色を取り除くことができますです。

私のスクリプトは、このスクリプトは、このプロット

を作成し、私は活性化 "ガイド（FALSE =記入）+" と青の伝説をオフに取り除くことができるようにすることができます `

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") 

ですスクリプトでは次のようになります。

You can reach sample data from here

お返事ありがとう@Didzis Elferts。私は伝説とプロットがカラーを壊すことは確かではありませんでした。あなたが見ることができるように、これらの写真10Kと8Kは同じ色（私は右です！）ですので、10Kは暗くなければなりません。

Answer 1

デフォルトのマップによって機能geom_hex()を埋めるためにカウントしますので、勾配（デフォルトでは青）を満たし得ます。マップの数をアルファ値にしたい場合は、のaes()をgeom_hex()に何らかの色（例としてgrey45）に割り当てる必要があります。 fill =はaes()の外側に設定されているため、塗りつぶし値の凡例はありません。あなたのプロットCHPとHDPから

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