Визуализация данных — важнейший аспект анализа данных, позволяющий нам получать ценную информацию и эффективно сообщать о результатах. Язык программирования R предоставляет несколько мощных пакетов для создания визуально привлекательных графиков, и одним из таких пакетов является ggarrange(). В этой статье блога мы рассмотрим различные методы использования пакета ggarrange() для беспрепятственного упорядочивания и объединения нескольких графиков. Мы предоставим примеры кода, чтобы продемонстрировать реализацию каждого метода.

Метод 1: базовое расположение сеток
Пакет ggarrange() предлагает простое расположение графиков на основе сетки. Вот пример:

library(ggplot2)
library(ggpubr)
# Create two sample plots
plot1 <- ggplot(data = mtcars, aes(x = wt, y = mpg)) + geom_point()
plot2 <- ggplot(data = mtcars, aes(x = hp, y = mpg)) + geom_point()
# Arrange plots using ggarrange()
ggarrange(plot1, plot2, nrow = 1, ncol = 2)

Метод 2: индивидуальный макет сетки
Вы можете настроить макет сетки, используя аргумент layout_matrixв ggarrange(). Вот пример:

# Create three sample plots
plot1 <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point()
plot2 <- ggplot(data = iris, aes(x = Petal.Length, y = Petal.Width)) + geom_point()
plot3 <- ggplot(data = iris, aes(x = Species, fill = Species)) + geom_bar()
# Customize the grid layout
layout <- rbind(c(1, 1, 2), c(1, 1, 3))
ggarrange(plot1, plot2, plot3, layout_matrix = layout)

Метод 3: упорядочивание графиков с помощью общих легенд
Пакет ggarrange() позволяет легко упорядочивать графики с общими легендами. Вот пример:

# Create two sample plots with common legend
plot1 <- ggplot(data = mtcars, aes(x = wt, y = mpg, color = factor(cyl))) + geom_point()
plot2 <- ggplot(data = mtcars, aes(x = hp, y = mpg, color = factor(cyl))) + geom_point()
# Arrange plots with common legend
ggarrange(plot1, plot2, nrow = 1, ncol = 2, common.legend = TRUE)

# Create two sample plots
plot1 <- ggplot(data = mtcars, aes(x = wt, y = mpg)) + geom_point()
plot2 <- ggplot(data = mtcars, aes(x = hp, y = mpg)) + geom_point()
# Arrange plots with titles and captions
ggarrange(plot1, plot2, nrow = 1, ncol = 2, top = "Scatter Plots", bottom = "Data Source: mtcars")