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