library(ggplot2)
library(ggpmisc)
formula <- y ~ x
ggplot(dados, aes(x = x, y = y)) +
  geom_point() +
  geom_smooth(method   = "lm", se = T, color = "black", formula  = formula) +
  ggpmisc::stat_poly_eq(aes(label =  paste(..eq.label.., ..adj.rr.label.., sep = "~~~~")),
                        formula = formula, parse = TRUE)