добавить альфа-легенду ggplot2 график рассеяния

Question

Мои данные выглядит примерно так:

DF <- data.frame(
    x = rnorm(100, mean = 0, sd = 1), 
    y = rnorm(n = 100, mean = 1, sd = 1), 
    color = sample(
    x = c('red', 'blue'), size = 100, replace = T, prob = c(.5,.5) 
), 
    alpha = runif(n = 100, min = 0.1, max = 1) 
) 

Я хочу, чтобы создать график рассеяния, и я хочу только легенда на графике, чтобы быть alpha, непрерывная переменная, которая может принимать значения от 0,1 до 1.

Это то, что я прямо сейчас:

DF %>% 
    ggplot(aes(
    x = x, y = y, color = color, size = 2, alpha = alpha 
)) + 
    geom_point(show_guide = TRUE) + theme_bw() 

возможно ли это?

Answer 1

Попробуйте это:

DF %>% 
    ggplot(aes(x = x, y = y, color = color, alpha = alpha),size = 2) + 
    geom_point() + 
    guides(color = "none") + 
    theme_bw() 

Answer 2

Я не в состоянии получить alpha в непрерывной шкале, но легенды для color и size могут быть удалены путем установки их направляющие FALSE.

DF %>% 
    ggplot(aes(
     x = x, y = y, color = color, size = 2, alpha = alpha 
    )) + 
    geom_point(show_guide = TRUE) + theme_bw() + 
scale_size(guide = FALSE) + 
scale_color_discrete(guide = FALSE)