[ggplot2] Ajouter une légende

Version imprimable

Je voudrais savoir comment ajouter une légende dans un plot créé à partir du package ggplot2.
J'ai un plot regroupant deux jeux données a (éclaté en a1, a2) et b (éclaté en b1, b2). Je voudrais ajouté comme légende:

Code:

1
2
3
 
couleur bleu : A
couleur rouge : B

# Exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
library(ggplot2)
 
a1 <- sample(1:50, 10, replace = F)
a2 <- sample(1:50, 10, replace = F)
b1 <- sample(1:50, 10, replace = F)
b2 <- sample(1:50, 10, replace = F)
 
 
mergeData(a1 = a1, a2 = a2, b1 = b1, b2 = b2)
 
mergeData <- function(a1, a2, b1, b2)
{
 
  A = data.frame(p1=a1, p2=a2)
  B  = data.frame(p1=b1, p2=b2)
 
  p <- ggplot()+
    geom_point(data = A, aes(x = p1, y = p2), color='blue') + 
    geom_point(data = B, aes(x = p1, y = p2), colour='red') +
    labs(title = "", x = "", y="")
 
  return(p)
}

Réponse:

Code:

1
2
3
4
5
6
7
8
9
 
  p <- ggplot()+
    geom_point(data = A, aes(x = p1, y = p2, color = "A")) + # Mettre "color" dans la fonction "aes"
    geom_point(data = B, aes(x = p1, y = p2, color = "B")) +
    labs(title = "", x = "", y="") +
    # Ajouter ceci
    scale_color_manual(name = "",
                       values = c("A" = "blue", "B" = "red")) +
    theme(legend.position = "top")

Bonjour,

La librairie ggplot2 s’accommode plus facilement de tableaux longs. Tu peux faire la même chose que ce que tu as fait là en mettant toutes tes données dans un même tableau et en ayant une colonne qui te permet de différencier les groupes.
Quand le nombre de groupe augmente s'est plus efficace dans l'écriture et ça permet par exemple de faire du multipanel avec les fonctions "facet_xxx".
Code:

1 2 3 4 5 6 tab <- rbind(A, B) tab$gr <- factor(rep(LETTERS[1:2], c(nrow(A), nrow(B)))) ggplot(tab, aes(p1, p2, color = gr)) + geom_point() + scale_color_manual(name = "", values = c("A" = "blue", "B" = "red")) + theme(legend.position = "top", title = element_blank()) # pour supprimer les titres, tu gagnes en place
cdlt