我想使用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)