Problema con la leggenda mentre si prepara i dati da due dati.
Domanda
Ho un po 'di problemi a far funzionare GGPlot2 come voglio. Fondamentalmente, vorrei confrontare le osservazioni reali rispetto ad approssimate mettendole in una singola trama. Per esempio,
> library(ggplot2)
> df.actual <- data.frame(x = 1:100, y = (1:100) * 2)
> df.approx <- data.frame(x = 1:150, y = (1:150) * 2 + 5 + rnorm(150, mean = 3) )
> ggplot() + geom_point(aes(x, y), data = df.actual) + geom_line(aes(x,y), data = df.approx)
Il mio problema è che non riesco a mostrare una leggenda. Ho letto da qualche parte che la leggenda di Ggplot2 non è molto flessibile (?). Idealmente, una leggenda con
- title = 'type'
- Chiave: un punto pieno nero e una linea nera
- Etichetta chiave: "reale", "approssimativo"
- Legend.Position = 'Topright'
Grazie.
Soluzione
Prova questo per iniziare
ggplot() +
geom_point(aes(x, y, colour = "actual"), data = df.actual) +
geom_line(aes(x, y, colour = "approximate"), data = df.approx) +
scale_colour_discrete("Type")
Altri suggerimenti
Questa è una specie di hack per modificare la leggenda mediante manipolazione dell'oggetto della griglia:
library("ggplot2")
df.actual <- data.frame(x=1:100, y=(1:100)*2)
df.approx <- data.frame(x=1:150, y=(1:150)*2 + 5 + rnorm(150, mean=3))
p <- ggplot() +
geom_point(aes(x, y, colour="Actual"), data=df.actual) +
geom_line(aes(x, y, colour="Approximate"), data=df.approx) +
scale_colour_manual(name="Type",
values=c("Actual"="black", "Approximate"="black"))
library("grid")
grob <- ggplotGrob(p)
tmp <- grid.ls(getGrob(grob, "key.segments", grep=TRUE, global=TRUE))$name
grob <- removeGrob(grob, tmp[1]) # remove first line segment in legend key
tmp <- grid.ls(getGrob(grob, "key.points", grep=TRUE, global=TRUE))$name
grob <- removeGrob(grob, tmp[2]) # remove second point in legend key
grid.draw(grob)
Ggplot2 Output http://img134.imageshack.us/img134/8427/gglotlegend.png
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow