我想用不同颜色的垂直线创建一个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),因为它不会为颜色生成图例。有更好的解决方案吗?
也许是这样:
+ geom_vline(aes(xintercept = wt,color = factor(colors))) +
scale_color_manual(values = c('red','blue','yellow','green'))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句