平滑曲线散点图

Question

我在R中有两个平滑的曲线散点图。

plot(lowess(x,y), col="blue")
plot(lowess(a,b), col="red")

或

qplot(x,y, geom='smooth', span =0.5,col="blue")
qplot(a,b, geom='smooth', span =0.5,col="red")

现在我想将它们合并到两条曲线的一个图形中，其中水平轴是x和a的所有值。我怎样才能做到这一点？提前谢谢。