r – Ajout de l'équation de ligne de régression et de R2 sur le graphique – investir sur crypto

Actualité bitcoin


J'ai inclus une statistique stat_poly_eq () dans mon colis ggpmisc cela permet cette réponse:

bibliothèque (ggplot2)
bibliothèque (ggpmisc)
df <- data.frame (x = c (1: 100))
df $ y <- 2 + 3 * df $ x + rnorm (100, sd = 40)
my.formula <- y ~ x
p <- ggplot (data = df, aes (x = x, y = y)) +
   geom_smooth (method = "lm", se = FALSE, color = "black", formula = my.formula) +
   stat_poly_eq (formula = my.formula,
                aes (label = coller (.. eq.label .., ..rr.label .., sep = "~~~")),
                parse = TRUE) +
   geom_point ()
p

entrez la description de l'image ici

Cette statistique fonctionne avec n'importe quel polynôme, sans aucun terme manquant, et a heureusement suffisamment de souplesse pour être généralement utile. Les étiquettes R ^ 2 ou R ^ 2 ajustées peuvent être utilisées avec n’importe quelle formule modèle équipée de lm (). En tant que statistique ggplot, il se comporte comme prévu avec des groupes et des facettes.

Le package 'ggpmisc' est disponible via CRAN.

La version 0.2.6 vient d'être acceptée à CRAN.

Il répond aux commentaires de @shabbychef et @ MYaseen208.

@ MYaseen208 cela montre comment ajouter un chapeau.

bibliothèque (ggplot2)
bibliothèque (ggpmisc)
df <- data.frame (x = c (1: 100))
df $ y <- 2 + 3 * df $ x + rnorm (100, sd = 40)
my.formula <- y ~ x
p <- ggplot (data = df, aes (x = x, y = y)) +
   geom_smooth (method = "lm", se = FALSE, color = "black", formula = my.formula) +
   stat_poly_eq (formula = my.formula,
                eq.with.lhs = "italic (hat (y)) ~` = `~",
                aes (label = coller (.. eq.label .., ..rr.label .., sep = "~~~")),
                parse = TRUE) +
   geom_point ()
p

entrez la description de l'image ici

@shabbychef Il est maintenant possible de faire correspondre les variables de l'équation à celles utilisées pour les libellés d'axe. Pour remplacer le X avec dis z et y avec h on utiliserait:

p <- ggplot (data = df, aes (x = x, y = y)) +
   geom_smooth (method = "lm", se = FALSE, color = "black", formula = my.formula) +
   stat_poly_eq (formula = my.formula,
                eq.with.lhs = "italic (h) ~` = `~",
                eq.x.rhs = "~ italic (z)",
                aes (label = ..eq.label ..),
                parse = TRUE) +
   labs (x = expression (italique (z)), y = expression (italique (h))) +
   geom_point ()
p

entrez la description de l'image ici

Étant ces expressions R analysées normales, les lettres grecques peuvent désormais être utilisées aussi bien dans les lhs que dans les rhs de l'équation.

[2017-03-08] @elarry Edit pour répondre plus précisément à la question initiale, en montrant comment ajouter une virgule entre les libellés d'équation et R2.

p <- ggplot (data = df, aes (x = x, y = y)) +
  geom_smooth (method = "lm", se = FALSE, color = "black", formula = my.formula) +
  stat_poly_eq (formula = my.formula,
               eq.with.lhs = "italic (hat (y)) ~` = `~",
               aes (label = coller (.. eq.label .., ..rr.label .., sep = "* plain (",  ") ~")),
               parse = TRUE) +
  geom_point ()
p

entrez la description de l'image ici



Traduit depuis https://stackoverflow.com/questions/7549694/adding-regression-line-equation-and-r2-on-graph