绘制拟合回归线上方的残差

Question

假设我有点(x_i,y_i)的散点图，我想绘制拟合的回归线，然后从每个点到线（以不同的颜色）放下一条线以显示残差。如何在R中完成，最好是用ggplot？