我想使用 ggplot2 在一个图中绘制多条不同颜色的线,然后添加一条单独的水平线。我的代码如下。在我运行最后一行之前它运行良好p + geom_hline(yintercept=400)
。所有线条都变成黑色,右侧的图例消失。
有谁知道如何解决这个问题?
library(ggplot2)
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))
}))
p<-qplot(year, number, data=mry, group=rating, geom="line",xlab = 'year',
ylab = 'number')
p + geom_line()
p + geom_line(aes(colour = rating))
p + geom_hline(yintercept=400)
您没有保存中间步骤。每个情节都只添加一件事p
。如果您想保留刚刚添加的部分,您需要执行以下操作:
p <- p + geom_line(aes(colour = rating))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)