R语言如何用qplot绘制两条拟合曲线

如何绘制middle和out关于veh的两条拟合曲线在一张图上，不是在两张图上。。
p1=qplot(veh, middle, data = B,geom = "smooth", main = "smooth")
p2=qplot(veh,out,data = B,geom = "smooth", main = "smooth")
grid.arrange(p1,p2, nrow=2)

http://blog.sina.com.cn/s/blog_8eee7fb60101g25j.html