1

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.

Gráfico resultante

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)

1 respuesta 1

1

Al ver la documentación del paquete ggpmisc la función stat_poly_eq, cuenta con los siguientes parámetros, con los respectivos valores que pueden tomar:

 label.x.npc = "right", "left", "middle o center"
 label.y.npc = "bottom", "top", "middle o center"

La configuración por default es: label.x.npc = "left", label.y.npc = "top"

library(ggplot2)
library(ggpmisc)

x <- 1:100
y <- (x + x^2)
Data <- data.frame(x = x, y = y, group = c("P", "C"))

ggplot(Data, aes(x, y)) + 
    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,

                 # ----------------------------------------------
                 # linea agregada
                 # ----------------------------------------------
                 label.x.npc = "right", label.y.npc = "bottom",
                 # ----------------------------------------------

                 eq.with.lhs = "italic(q)~`=`~",
                 eq.x.rhs = "~italic(p)",
                 aes(label = paste(..eq.label.., ..rr.label.., 
                                   sep = "*plain(\",\")~")), 
                 parse = TRUE)

introducir la descripción de la imagen aquí

También es posible configurar la posición de la ecuación, en función a los valores del eje x e y, para ello sólo cambiar label.x.npc = "right", label.y.npc = "bottom" por:

label.x = 75, label.y = 2500

O los valores que se necesiten, porque dichos parámetros por default son: label.x = NULL, label.y = NULL

1
  • En efecto esa es la solución, muchas gracias.
    – googolplex
    Commented el 29 mar. 2019 a las 16:10

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.