Désactiver certaines légendes dans un ggplot

Question

Supposons que j'ai un ggplot avec plus d'une légende.

mov <- subset(movies, length != "")
(p0 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  geom_point()
)

Je peux désactiver l'affichage de toutes les légendes comme ceci :

(p1 <- p0 + theme(legend.position = "none"))

Passage show_guide = FALSE a geom_point (conformément à la cette question ) désactive la légende des formes.

(p2 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  geom_point(show_guide = FALSE)
)

Mais que se passe-t-il si je veux désactiver la légende des couleurs ? Il ne semble pas y avoir de moyen de le faire. show_guide la légende à laquelle appliquer son comportement. Et il n'y a pas de show_guide argument d'échelle ou d'esthétique.

(p3 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  scale_colour_discrete(show_guide = FALSE) +
  geom_point()
)
# Error in discrete_scale

(p4 <- ggplot(mov, aes(year, rating, shape = mpaa)) +
  aes(colour = length, show_guide = FALSE) +
  geom_point()
)
#draws both legends

Cette question suggère que la façon moderne (depuis ggplot2 v0.9.2) de contrôler les légendes est avec la fonction guides fonction.

Je veux pouvoir faire quelque chose comme

p0 + guides(
  colour = guide_legend(show = FALSE) 
)

mais guide_legend n'a pas d'argument de démonstration.

Comment puis-je spécifier les légendes à afficher ?

Answer 1

Vous pouvez utiliser guide = "none" en scale_..._...() pour supprimer la légende.

Dans votre exemple, vous devez utiliser scale_colour_continuous() parce que length est une variable continue (et non discrète).

(p3 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
   scale_colour_continuous(guide = "none") +
   geom_point()
)

Ou en utilisant la fonction guides() vous devez définir "none" pour cet élément/esthétique que vous ne voulez pas voir apparaître en légende, par exemple, fill , shape , colour .

p0 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  geom_point()    
p0+guides(colour = "none")

MISE À JOUR

Les deux solutions proposées fonctionnent dans de nouvelles ggplot2 version 3.3.5 mais movies n'est plus présent dans cette bibliothèque. A la place, vous devez utiliser le nouveau paquet ggplot2movies pour vérifier ces solutions.

library(ggplot2movies)
data(movies)
mov <- subset(movies, length != "")

Answer 2

Vous pouvez simplement ajouter show.legend=FALSE à geom pour supprimer la légende correspondante