geom_segment 新技能get

好久没更新，应该说好久没用 R 了[捂脸] 每天在单位感觉用的语文比数学多= = 连管道符号 %>% 的快捷键都忘了

先不说废话，今天男友又有新需求啦，想在不同分面上加上不同的垂直线，并添加图例。很简单啊，跟上次的要求差不多嘛，只不过不同分面里的垂直线要不同横截距而已，只需要新建一个辅助数据框 aux，将对应分面变量的横截距添加进去即可。

aux <- data.frame(cyl = c(4,6,8), l = c(3.5,4,4.5), m = c(5,4.3,3))

ggplot(mtcars, aes(x = drat)) + 
  geom_line(aes(y = mpg, colour = "mpg")) + 
  geom_line(aes(y = qsec, colour = "qsec"))  +
  facet_wrap(~cyl) + 
  geom_vline(aes(xintercept