проблема с легендой при построении данных из двух data.frame

Question

У меня небольшие проблемы с получением ggplot2 для работы, как я хочу. В принципе, я бы хотел сравнить фактические наблюдения с аппроксимацией, поставив их в один сюжет. Например,

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

Моя проблема в том, что я не могу отобразить легенду. Я где-то читал, что легенда ggplot2 не очень гибкая (?). В идеале, легенда с

• TITLE = 'Тип'
• ключ: черный заполнены точки и черной линией
• ключ ярлык: 'Actual', 'Приближенное'
• legend.position = 'topright'

Спасибо.

Answer 1

Попробуйте это, чтобы вы начали

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

Answer 2

Это своего рода хак, чтобы изменить легенду манипуляции объекта сетки:

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/ggplotlegend.png