Як створити діаграми поруч у ggplot2

Часто вам може знадобитися створити дві ділянки поруч за допомогою пакета ggplot2 у R. На щастя, це легко зробити за допомогою пакета patchwork .

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

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

У цьому підручнику показано кілька прикладів використання цих пакетів для створення паралельних графіків.

Приклад 1: дві ділянки поруч

У наведеному нижче коді показано, як створити дві паралельні діаграми за допомогою вбудованого набору даних райдужної оболонки 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 

Приклад 2: три ділянки поруч

У наведеному нижче коді показано, як створити три пліч-о-пліч графіки за допомогою вбудованого набору даних райдужної оболонки 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

Приклад 3: дві складені ділянки

Наступний код показує, як створити дві діаграми, розташовані одна на одній:

 #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 

Приклад 4: Додайте заголовки, субтитри та підписи

Наступний код показує, як додати заголовки, субтитри та підписи до сюжетів:

 #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 '
)

Ви можете знайти більше навчальних посібників з R тут .