修改ggpairs中相关和回归线的显示

Question

我有一个ggpairs函数来显示散点图矩阵，如下所示：

attach(iris)

df = data.frame(Petal.Length,Petal.Width,Species)

PlotCont = function(data, mapping, ...){
    ggplot(data, mapping) + geom_point(..., shape = 19, alpha = 0.5) +
      geom_smooth(method = "lm")
}

ggpairs(df,
        column = 1:2,
        mapping = aes(colour = Species),
        lower = list(continuous = PlotCont))

然后，我想在左下方绘制一条回归线，该回归线将遍历图中的所有点，而与Species给出的分组无关。
我还想在散点图中显示两个变量之间的整体相关性（右上角显示为0.963），并从该部分中删除相应的值。

我的猜测是修改aes中的参数geom_smooth，但是我不确定该怎么做。有人可以帮我解决这个问题吗？

编辑：
我已经用这段代码解决了第一个问题

PlotCont <- function(data, mapping, ...) {
  ggplot(data) + geom_point(mapping, shape = 19, alpha = 0.5) +
    geom_smooth(method = "lm", aes(x = data[as.character(mapping$x)], y = data[as.character(mapping$y)]))
}

ggpairs(df,
  column = 1:2,
  mapping = aes(color = Species),
  lower = list(continuous = PlotCont)
)

生成下面的图像，但仍然找不到第二个问题的解决方案。