scatter график байгуулах

load("~/Desktop/R data sets for 5e/wage1.RData")
library(knitr)
library(ggplot2)
library(plotly)
y<-data$wage
x<-data$educ
reg<-lm(y~x)
gg<-ggplot(data,mapping=aes(x=x,y=y,colour=factor(data$female)))+geom_point()+geom_smooth(method = lm)+geom_segment(aes(x=x,y=y,xend=x,yend=fitted(reg)))
kk<-ggplotly(gg)
kk

Scatter графикийг эрэгтэй эмэгтэй хүмүүсийн хүйсийн ялгаагаар цэгийг дүрслэн хүйсийн ялгаагаар регрессийн шулууныг дүрслэн үзүүлэв