Problème de légende ggplot w/geom_point et geom_text

Question

J'essaie d'utiliser geom_point pour illustrer le nombre de mes données. Je voudrais aussi annoter quelques-uns des points de mon graphique avec geom_text. Lorsque j'ajoute l'appel à geom_text, il semble qu'il trace quelque chose sous les points de la légende. J'ai essayé d'inverser l'ordre des couches en vain. Je ne peux pas comprendre pourquoi c'est ce qu'il fait. Quelqu'un a-t-il déjà vu cela avant?

set.seed(42) 
df <- data.frame(x = 1:10 
    , y = 1:10 
    , label = sample(LETTERS,10, replace = TRUE) 
    , count = sample(1:300, 10, replace = FALSE) 
) 

p <- ggplot(data = df, aes(x = x, y = y, size = count)) + geom_point() 
p + geom_text(aes(label = label, size = 150, vjust = 2)) 

Answer 1

Ce qui est arrivé à moi tout le temps. L'astuce consiste à savoir que aes() cartographie les données à l'esthétique. S'il n'y a pas de données à mapper (par exemple, si vous avez une seule valeur que vous déterminez), il n'y a aucune raison d'utiliser aes(). Je crois que seules les choses à l'intérieur d'un aes() apparaîtront dans votre légende.

En outre, lorsque vous spécifiez des mappings dans ggplot(aes()), ces mappages s'appliquent à à chaque couche suivante. C'est bon pour votre x et y, puisque les deux geom_point et geom_text les utilisent. C'est mauvais pour size = count, car cela ne s'applique qu'aux points.

Ce sont donc mes deux règles pour empêcher ce genre de chose:

1. applications à base de données uniquement mis à l'intérieur de aes(). Si l'argument prend une seule valeur prédéterminée, passez-la à la couche en dehors de de aes().
2. Données de carte uniquement pour les couches qui l'utiliseront. Corollaire: ne mappez les données qu'à l'intérieur de ggplot(aes()) si vous êtes sûr que chaque couche suivante l'utilisera. Sinon, mappez-le au niveau de la couche.

donc je tracer cette thusly:

p <- ggplot(data = df, aes(x = x, y = y)) + geom_point(aes(size = count)) 
p + geom_text(aes(label = label), size = 4, vjust = 2) 

Answer 2

ou, si vous avez besoin de spécifier la taille du texte à l'intérieur des aes, puis légende = suppress FAUX tirer les légendes du geom:

p <- ggplot(data = df, aes(x = x, y = y, size = count)) + geom_point() 
p + geom_text(aes(label = label, size = 150, vjust = 2), show_guide = FALSE)