如何将ggplot2中geom_point的线条颜色设置为geom_smooth的填充颜色？

Question

我在R中使用ggplot2。我想指定geom_point()的线条颜色，以根据使用的主题自动使用geom_smooth()的填充颜色。 （在我的实际数据中，还有更多的线组，每组都有自己的默认主题颜色。）我该怎么做？

library(ggplot2)
data(mtcars)
mtcars$mpg <- 1
ggplot(mtcars,aes(x=hp,y=wt,fill=mpg,colour=mpg)) +
  geom_point() +
  geom_smooth()