Comment créer des tracés côte à côte dans ggplot2

Souvent, vous souhaiterez peut-être créer deux tracés côte à côte à l’aide du package ggplot2 dans R. Heureusement, cela est facile à faire avec l’aide du package patchwork .

#install ggplot2 and patchwork packages
install.packages('ggplot2')
install.packages('patchwork')

#load the packages 
library(ggplot2)
library(patchwork)

Ce didacticiel montre plusieurs exemples d’utilisation de ces packages pour créer des tracés côte à côte.

Exemple 1 : deux tracés côte à côte

Le code suivant montre comment créer deux tracés côte à côte à l’aide de l’ensemble de données iris intégré à R :

#create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot()

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.8)

#display plots side by side
plot1 + plot2 

Exemple 2 : trois tracés côte à côte

Le code suivant montre comment créer trois tracés côte à côte à l’aide de l’ensemble de données iris intégré à R :

#create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot()

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.7)

#create scatterplot 
plot3 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point()

#display three plots side by side
plot1 + plot2 + plot3

Exemple 3 : deux tracés empilés

Le code suivant montre comment créer deux tracés empilés, l’un au-dessus de l’autre :

#create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot()

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.7)

#display plots stacked on top of each other
plot1 / plot2 

Exemple 4 : Ajouter des titres, des sous-titres et des légendes

Le code suivant montre comment ajouter des titres, des sous-titres et des légendes aux tracés :

#create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot() +
  ggtitle('Boxplot')

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.7) +
  ggtitle('Density Plot')

#display plots side by side with title, subtitle, and captions
patchwork <- plot1 + plot2 

patchwork + plot_annotation(
  title = 'This is a title',
  subtitle = 'This is a subtitle that describes more information about the plots',
  caption = 'This is a caption'
)

Vous pouvez trouver plus de didacticiels R ici .