Usuń dodatkowe legendy w ggplot2

Question

Mam prostą ramkę danych, którą próbuję zrobić połączony wykres liniowy i punktowy przy użyciu ggplot2. Przypuśćmy moich danych wygląda następująco:

df <- data.frame(x=rep(1:10,2), y=c(1:10,11:20), 
       group=c(rep("a",10),rep("b",10))) 

I Próbuję dokonać działki:

g <- ggplot(df, aes(x=x, y=y, group=group)) 
g <- g + geom_line(aes(colour=group)) 
g <- g + geom_point(aes(colour=group, alpha = .8)) 
g 

wynik wygląda dobrze z jednym wyjątkiem. Ma dodatkową legendę przedstawiającą warstwę alfa dla mojej warstwy geom_point.

Jak mogę utrzymać legendę pokazano kolory grupie, ale nie taki, który pokazuje moje ustawienia alfa?

Answer 1

Estetyka może być ustawić lub odwzorowane ciągu ggplot rozmowy.

• estetyczny zdefiniowane w aes(...) jest odwzorowywane z danymi i legenda utworzony.
• Estetyczny może być również zestaw do pojedynczej wartości, definiując go poza aes().

W tym przypadku, wydaje się chcesz ustawićalpha = 0.8 i mapęcolour = group.

Aby to zrobić,

Umieść alpha = 0.8 poza definicją aes().

g <- ggplot(df, aes(x = x, y = y, group = group)) 
g <- g + geom_line(aes(colour = group)) 
g <- g + geom_point(aes(colour = group), alpha = 0.8) 
g 

Dla każdego odwzorowane zmienną można wyciszyć wygląd legendy za pomocą guide = 'none' w odpowiednim scale_... rozmowy. na przykład.

g2 <- ggplot(df, aes(x = x, y = y, group = group)) + 
     geom_line(aes(colour = group)) + 
     geom_point(aes(colour = group, alpha = 0.8)) 
g2 + scale_alpha(guide = 'none') 

Który powróci identyczną fabułę

EDIT @ komentarzu Jøran jest spot-on, zrobiłem moją odpowiedź pełniejsze

Answer 2

Dla starszych wersji ggplot2 (wersje przed 0,9 .2, wydany pod koniec 2012 roku), ta odpowiedź powinna zadziałać:

Próbowałem tego z colour_scale i nie działało. Wygląda na to, że element colour_scale_hue działa jak funkcja z domyślnym parametrem TRUE. Dodałem scale_colour_hue(legend=FALSE) i zadziałało.

Nie jestem pewien, czy to jest w przypadku wszystkich pozycji skali kolorów w ggplot

Answer 3

Wystarczy dodać kod show.legend = F po części, w której nie ma go.

g <- ggplot(df, aes(x=x, y=y, group=group)) 
g <- g + geom_line(aes(colour=group)) 
g <- g + geom_point(aes(colour=group, alpha = .8), show.legend = F)