应该如何绘制下面这张图表？看了好久了，还是不知道该怎么做

应该如何绘制下面这张图表？看了好久了，还是不知道该怎么做
哦送货个人我和宋银色而你我陪户型哦

使用ggplot2绘制，参考例子：

library(ggplot2)
p<-ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,col=Species,fill=Species))+
geom_point(aes(color = Species))+
scale_color_manual(values = c("orange","green","navy"))+
facet_grid(cols = vars(Species))+
geom_smooth()+
theme_bw( )
plot(p)