ggplot2: цветные вертикальные линии

Question

Я хотел бы создать график ggplot с вертикальными линиями разных цветов. Вот один из способов достижения этой цели.

mtcars$colors = rep(1:4, nrow(mtcars)/4) 

ggplot(mtcars, aes(x=wt, y=mpg)) + 
    geom_point() + 
    geom_vline(xintercept=subset(mtcars, colors==1)$wt, color="red") + 
    geom_vline(xintercept=subset(mtcars, colors==2)$wt, color="blue") + 
    geom_vline(xintercept=subset(mtcars, colors==3)$wt, color="yellow") + 
    geom_vline(xintercept=subset(mtcars, colors==4)$wt, color="green") 

Это решение не очень удобно, когда переменная colors занимает 50 различных значений 1), потому что он запрашивает у пользователя, чтобы написать очень длинное выражение (или построить объект ggplot итеративно) и 2), потому что он не создает легенды для цветов. Есть ли лучшее решение?

Answer 1

Может быть, вместо этого:

+ geom_vline(aes(xintercept = wt,color = factor(colors))) + 
    scale_color_manual(values = c('red','blue','yellow','green'))