Ändern ggplot farbige Linien in der Legende zu Quadraten oder Kreisen

Question

Anstelle der farbigen Linien auf einem grauen Hintergrund, die derzeit den Legendenschlüssel bilden, möchte ich Quadrate oder Farbkreise neben dem Schlüssel-Label für die Farben sein leicht sichtbar. Wie kann ich das machen? Hier ist ein Code-Snippet als Beispiel zu verwenden:

mry <- do.call(rbind, by(movies, round(movies$rating), function(df) { 
    nums <- tapply(df$length, df$year, length) 
    data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)), 
    number=as.vector(nums)) 
})) 

ggplot(mry, aes(x=year, y=number, colour=factor(rating))) + geom_line() + 
scale_colour_brewer(palette="YlGnBu") 

Answer 1

einen Hack kommt bis zu Kreisen machen ....

ggplot(mry, aes(x=year, y=number, colour=factor(rating))) + 
    scale_colour_brewer(palette="YlGnBu") + 
    geom_point() +  
    geom_point(size=5,colour="white",show_guide=FALSE) + 
    opts(
    panel.background = theme_rect(fill = "transparent"), 
    panel.grid.minor = theme_blank(), 
    panel.grid.major = theme_blank(), 
    plot.background = theme_rect(fill = "transparent",colour = NA) 
) + geom_line(show_guide=FALSE)