Cambiar las líneas de colores de ggplot en leyenda por cuadrados o círculos

Question

En lugar de las líneas de color sobre un fondo gris que actualmente componen la clave de leyenda, me gustaría cuadrados o círculos de color junto a la etiqueta de clave para que los colores fácilmente visible. ¿Cómo puedo hacer eso? Aquí es un fragmento de código para su uso como un ejemplo:

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

un truco que viene a hacer círculos ....

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)