Combinez deux tracés ggplot2 de différents DataFrame dans R

Afficher la discussion

Améliorer l’article

Enregistrer l’article

J’aime l’article

Afficher la discussion

Améliorer l’article

Enregistrer l’article

J’aime l’article

Dans cet article, nous allons apprendre à combiner deux tracés ggplot2 de différents DataFrame en langage de programmation R. Ici, dans cet article, nous utilisons un nuage de points, mais il peut être appliqué à n’importe quel autre graphique.

Dessinons d’abord individuellement deux diagrammes de dispersion ggplot2 par différents DataFrames, puis nous verrons comment les combiner, c’est-à-dire comment dessiner les deux diagrammes dans un champ de tracé.

Parcelle 1 :

R

library("ggplot2")

 

pointDF1 <- data.frame(XDF1 = rnorm(50),

                       YDF1 = rnorm(50))

 

ggplot(pointDF1, aes(XDF1, YDF1)) +               

  geom_point(fill = "dark green", color = "black",

             size = 5, shape = 21)+

  ggtitle("Plot-1")

Production:

Premier tracé ggplot2

Premier tracé ggplot2

Parcelle 2 :

R

library("ggplot2")

 

pointDF2 <- data.frame(XDF2 = rnorm(50), 

                       YDF2 = rnorm(50))

 

ggplot(pointDF2, aes(XDF2, YDF2)) +               

  geom_point(fill = "green", color = "black"

             size = 5, shape = 21)+

  ggtitle("Plot-2")

Production:

Deuxième tracé ggplot2

Deuxième tracé ggplot2

Nous allons maintenant combiner les graphiques ci-dessus en un seul graphique. Tout fonctionne normalement sauf la partie traçage. Combinez la fonction pour tracer les deux tracés dans une seule image.

Après avoir combiné les deux graphiques, la question se pose de savoir quelles étiquettes d’axe doivent être utilisées. La réponse est que la fonction labs() peut être utilisée pour donner des étiquettes personnalisées. Cette étape est totalement facultative.

Syntaxe:

labs(x = “étiquette X”, y = “étiquette Y”)

Exemple:

R

library("ggplot2")

 

pointDF1 <- data.frame(XDF1 = rnorm(50), 

                       YDF1 = rnorm(50))

 

pointDF2 <- data.frame(XDF2 = rnorm(50),

                       YDF2 = rnorm(50))

 

ggplot() +               

  geom_point(data = pointDF1, aes(XDF1,YDF1), 

             fill = "dark green", color = "black",

             size = 5, shape = 21)+

  geom_point(data = pointDF2, aes(XDF2,YDF2), 

             fill = "green", color = "black"

             size = 5, shape = 21)+

  labs(x = "X-Data", y = "Y-Data")+

  ggtitle("Combined Plot")

Production:

Tracé combiné utilisant ggplot2

Tracé combiné utilisant ggplot2

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Aller en haut