Deux geom_points ajouter une légende

J'ai tracé un 2 geom_point graphique avec le code suivant:

source("http://www.openintro.org/stat/data/arbuthnot.R")
library(ggplot2)
ggplot() +
  geom_point(aes(x = year,y = boys),data=arbuthnot,colour = '#3399ff') +
  geom_point(aes(x = year,y = girls),data=arbuthnot,shape = 17,colour = '#ff00ff') +
  xlab(label = 'Year') +
  ylab(label = 'Rate')

Je veux simplement savoir comment faire pour ajouter une légende sur le côté droit. Avec la même forme et la même couleur. Triangle rose doit avoir la légende "femme" et le cercle bleu de la légende des "hommes". Semble assez simple, mais après plusieurs essai, je ne pouvais pas le faire. (Je suis un débutant avec ggplot).

OriginalL'auteur S12000 | 2013-07-18

13

Si vous renommez votre colonnes de l'original de la trame de données, puis la faire fondre dans le format long, avecreshape2::melt, il est beaucoup plus facile à manipuler en ggplot2. En spécifiant le color et shape l'esthétique dans la ggplot de commande, et en précisant les échelles de couleurs et de formes à la main, la légende apparaît.
```
source("http://www.openintro.org/stat/data/arbuthnot.R")
library(ggplot2)
library(reshape2)

names(arbuthnot) <- c("Year", "Men", "Women")

arbuthnot.melt <- melt(arbuthnot, id.vars = 'Year', variable.name = 'Sex', 
    value.name = 'Rate')

ggplot(arbuthnot.melt, aes(x = Year, y = Rate, shape = Sex, color = Sex))+
geom_point() + scale_color_manual(values = c("Women" = '#ff00ff','Men' = '#3399ff')) + 
scale_shape_manual(values = c('Women' = 17, 'Men' = 16))
```
merci est exactement ce que je cherchais. La structure semble être un peu plus difficiles à obtenir que d'utiliser ggplot2. Je vais avoir un coup d'oeil à reshape2 documentation... Merci

OriginalL'auteur Jim M.

Ici est une façon de le faire sans l'aide de remodeler::faire fondre. remodeler::faire fondre les œuvres, mais vous pouvez vous faire un bind si vous souhaitez ajouter d'autres choses sur le graphique, tels que les segments de ligne. Le code ci-dessous utilise l'origine de l'organisation des données. La clé de la modification de la légende est de s'assurer que les arguments de scale_color_manual(...) et scale_shape_manual(...) sont identiques, sinon vous obtiendrez deux légendes.

source("http://www.openintro.org/stat/data/arbuthnot.R")
library(ggplot2)
library(reshape2)
ptheme <- theme (
axis.text            = element_text(size = 9),              # tick labels
axis.title           = element_text(size = 9),              # axis labels
axis.ticks           = element_line(colour = "grey70", size = 0.25),
panel.background     = element_rect(fill = "white", colour = NA),
panel.border         = element_rect(fill = NA, colour = "grey70", size = 0.25),
panel.grid.major     = element_line(colour = "grey85", size = 0.25),
panel.grid.minor     = element_line(colour = "grey93", size = 0.125),
panel.margin         = unit(0 , "lines"),
legend.justification = c(1, 0), 
legend.position      = c(1, 0.1),
legend.text          = element_text(size = 8),
plot.margin          = unit(c(0.1, 0.1, 0.1, 0.01), "npc")   # c(bottom, left, top, right), values can be negative
)
cols    <- c( "c1" = "#ff00ff", "c2" = "#3399ff" )
shapes  <- c("s1" = 16, "s2" = 17)
p1 <- ggplot(data = arbuthnot, aes(x = year))
p1 <- p1 + geom_point(aes( y = boys,  color = "c1", shape = "s1"))
p1 <- p1 + geom_point(aes( y = girls, color = "c2", shape = "s2")) 
p1 <- p1 + labs( x = "Year", y = "Rate" )
p1 <- p1 + scale_color_manual(name = "Sex", 
breaks = c("c1", "c2"), 
values = cols,
labels = c("boys", "girls"))
p1 <- p1 + scale_shape_manual(name = "Sex", 
breaks = c("s1", "s2"),
values = shapes,
labels = c("boys", "girls"))
p1 <- p1 +  ptheme
print(p1)

résultats de sortie

Ce code va déraper assez rapidement si nous avons, par exemple, 5-6+ catégories de fruits, au lieu de "garçons" et "filles".

OriginalL'auteur Ken Junk

Vous devez vous connecter pour publier un commentaire.