Discussion :

[pitchu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
couleur bleu : A
couleur rouge : B

# Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
}

[pitchu]

Réponse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[tototode]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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