stat_smooth (method = 'lm') не показывает

Question

Я хочу показать строку stat_smooth (method = 'lm') на моем графике, но она не показывает, что я делаю ... пожалуйста, помогите ...

data <- read.csv(file = "C:/R/seoul.csv")

price_mul <- data$price/10
data$price_mul <- c(price_mul)

date_cut <- substr(data$date, 5,6) 
data$date_cut <- c(date_cut)

area<-"서울특별시 성동구"
data1 <- data[grep(area,data$시군구),]


library(dplyr) 
a <- data1 %>% filter(py < 20)


library(ggplot2)
ggplot(data=a, aes(x = a$date_cut, y = a$price_mul)) +
  scale_x_discrete(limits = c("06", "07", "08", "09", "10", "11", "12", "01", "02", "03", "04", "05")) +
  geom_point(size=1.5, color="darkred") + 
  ylim(0, max(data1$price_mul)) + labs(x = "기간 (2018.06 ~ 2019.05)", y = "거래금액(십만원)", size = 10) + 
  ggtitle(paste(area, "\n 20평미만 아파트 매매가 추이")) + theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 16, color = "black")) + stat_smooth(method='lm')