Is this the kind of thing you want to do?
set.seed(16365)
df <- data.frame(Disgust = seq(1, 10, length.out = 100),
Politics = seq(1, 10, length.out = 100) + rnorm(100, 0, 11),
Type=sample(c("A","B"),100,replace = TRUE))
library(ggplot2)
library(ggpmisc)
ggplot(df, aes(Disgust, Politics,color=Type)) + geom_point() +
geom_smooth(method = "lm", se = FALSE) +
stat_poly_eq(aes(label = paste(..eq.label.., ..rr.label..,
sep = "~~~")))
#> `geom_smooth()` using formula 'y ~ x'

Created on 2022-01-24 by the reprex package (v2.0.1)