Esta parece una pregunta simple, así que me espero una respuesta simple. Estoy trazando mis puntos y el ajuste de un modelo lineal, que puedo hacer OK. Luego quiero trazar algunas de las estadísticas de resumen, por ejemplo, el R Cuadrado valor, en la trama también. Sólo puedo parecer para conseguir la R Cuadrado valor en la línea de comandos.
Cualquier consejo; necesito estar buscando en ggplot o cualquier otra cosa? Gracias de antemano.

#Does the plot
plot(df$VAR1, df$VAR2)
#Adds the line
abline(lm(df$VAR2~df$VAR1), col="red")
#Shows stats on command line
summary(lm(df$VAR2~df$VAR1))

2 Comentarios

  1. 30

    Puede abuso legend() porque tiene la mano lógico de colocación:

    R> DF <- data.frame(VAR1=rnorm(100), VAR2=rnorm(100))
    R> with(DF, plot(VAR1, VAR2))
    R> abline(fit <- lm(VAR2 ~ VAR1, data=DF), col='red')
    R> legend("topright", bty="n", legend=paste("R2 is", 
    +         format(summary(fit)$adj.r.squared, digits=4)))

    Aquí bty="n" suprime la caja, y usted necesita format() para acortar la pantalla. Otros text() es buena, como lo son los argumentos main= y sub= a plot().

    • Gracias por la rápida respuesta. Parece que funciona, no creo que yo hubiera pensado que en un apuro!
    • Siéntase libre de aceptar esto como la respuesta 🙂
    • Disculpas – todavía tiene que acostumbrarse a cómo funciona esto. Yo creo que eso es aceptado en la actualidad..
    • No hay disculpa necesario. En algún momento cada uno de nosotros era nuevo aquí, y todos estamos aprendiendo juntos.
  2. 7

    La text función coloca el texto en la gráfica actual, es una opción para agregar el valor de r cuadrado de parcela. Busque también en el grconvertX y grconvertY funciones de posibilidades para encontrar la ubicación para colocar el texto.

    La corner.label y emptyspace funciones en el plotrix paquete también puede ayudar.

    • Gracias por la opción alternativa. Ya estoy acostumbrado a usar leyenda así que con el palo por ahora.

Dejar respuesta

Please enter your comment!
Please enter your name here