Con los paquetes ggplot2
, ggpmisc
y el siguiente código he podido graficar una nube de puntos con su recta de regresión e imprimir en el gráfico tanto la ecuación como el valor de R^2
.
El problema como se puede ver en la imagen es que se sobreponen sobre algunos puntos, lo que quiero es poder mover la ecuación a otra posición donde no se mezcle con ellos (en este caso alineada a la derecha preferiblemente), agradezco sus soluciones.
ggplot(Data, aes(x=P, y=C)) +
ggtitle("Curva de data") +
geom_jitter(color="green1")+
xlab("P") +
ylab("C") +
stat_smooth(method = lm,formula = y~x)+
stat_poly_eq(formula = y~x,
eq.with.lhs = "italic(q)~`=`~",
eq.x.rhs = "~italic(p)",
aes(label = paste(..eq.label.., ..rr.label..,
sep = "*plain(\",\")~")),
parse = TRUE)