如何在每个分面图上添加两条拟合线

小弟在学习ggplot2时有点疑问，想高手请教一下
利用下面的代码生成下图：

1. library(ggplot2)
   
2. p <- qplot(cty, hwy, data = mpg)
   
3. p + facet_wrap(~ cyl)

复制代码

现在有个问题向大家请教一下：
我想在4,5,6,8每个图里面添加两条拟合线：
如在4下添加:y=2*x-20(实线表示）和y=1.3*x-12(虚线表示）
在6下添加:y=2.1*x-20(实线表示）和y=1.4*x-12(虚线表示）
每个图下一条用实线，一条用虚线？做出类似于下图：

谁可以告诉一下怎么做？，不一定非要用ggplot ,要有代码的例子就非常好了

自己已经解决

已经自己解决了，也没人回答呀