如何在这个十分位数之间的回归图中添加中间值？

Question

我对变量的极坐标进行了线性回归（高度偏斜），并且在极坐标之间绘制了一条线以预测结果的可变性。该图确实为我提供了跨越十分位数的回归线，但是我想在X轴上添加每个十分位数的中值，以更好地说明变量的分布。

ggplotRegression <- function (fit) {

require(ggplot2)

ggplot(fit$model, aes_string(x = names(fit$model)[2], y = names(fit$model)[1])) + 
  geom_point() +
  stat_smooth(method = "lm", col = "red") +
  labs(title = paste("Adj R2 = ",signif(summary(fit)$adj.r.squared, 5),
                     "Intercept =",signif(fit$coef[[1]],5 ),
                     " Slope =",signif(fit$coef[[2]], 5),
                     " P =",signif(summary(fit)$coef[2,4], 5)))
}

ggplotRegression(lm(math_score ~ lead_decile, data=mkf1))