現在凡例キーを構成している灰色の背景の色付きの線の代わりに、色が簡単に見えるようにするために、キー ラベルの横に四角または色の円が必要です。どうやってやるの?例として使用するコード スニペットを次に示します。
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")