R小帮手又来了

如何添加有legend 的 geom_hline

男友想在图中添加geom_hline，同时希望增加legend加以说明。好吧，又到我上场了。

p <- ggplot(mtcars, aes(x = drat)) + geom_point(aes(y = mpg)) + 
facet_wrap(~cyl) + 
geom_hline(aes(yintercept = 20, colour = "benchmark"),show.legend = TRUE)
p

不过我学聪明啦，猜到他会说，可是我不想benchmark的标签为 colour啊。事真多。拿去

p + theme(legend.title = element_blank())

我不是不要标签，是换个标签。拿去

p + scale_color_hue("whatever you want")

原来有辣么多的选项，还发现可以在不同的facet里画不同的geom_hline。ggplot真是博大精深啊

P.S. 今天结束了四个月的实习，也可以算是学生生涯的最后几天了。无论去哪工作，都要加油，嗯。