ggplot scale alpha непрерывный цвет заливки

Question

Я попытался создать альфа-сюжет, но я не мог найти правильный способ сделать это. Я попробовал разное сочетание, и я почти там, но мне нужна небольшая помощь.
Мой вопрос в том, как я могу избавиться от синего цвета в сюжете.

Мой скрипт `

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

Этот скрипт создает этот участок

я могу быть в состоянии избавиться от синего легенды с активацией "направляющих (заполняющая = FALSE) +" в тексте сценария, и он дает следующее:

You can reach sample data from here

Благодаря @Didzis Elferts за его ответ. Я не мог быть уверен в легенде, и сюжет разбивает цвета. Как видите, эти фотографии 10K и 8K имеют один и тот же цвет (я прав!), Поэтому 10K должно быть темнее, не должно быть.

Answer 1

Функция geom_hex() по умолчанию карты рассчитывает на заполнение и таким образом вы получаете заполнить градиент (синий по умолчанию). Если вы просто хотите, чтобы количество карт соответствовало альфа-значениям, вы должны назначить fill = за пределами aes()geom_hex() для некоторого цвета (например, в качестве примера используется grey45). Поскольку fill = установлен за пределами aes(), для значений заполнения не будет легенды.

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