ggscatter(tim3, x = "GSR_Low2", y = "Dass_Normal2",color = "black", shape = 21,
          size = 3,add = "loess", add.params = list(color = "blue",
          fill = "lightgray"),conf.int = TRUE,cor.coef = TRUE,
          cor.coeff.args = list(method = "pearson", label.x = 3, label.sep = "n"))