Совместите участки с Cowplot в сетке в R

Question

У меня есть вопрос, касающийся выравнивания сюжета в Cowplot.

Я хотел бы выровнять графики (ggplot) на панели, состоящей из 3 столбцов.В первом столбце есть 2 графика (выровнены по вертикали), во втором столбце 1 график, а в третьем также есть два графика (выровнены по вертикали).

Пример:

# Packages
library(tidyverse)
library(cowplot)

# Create sample data
df <- data.frame(replicate(2,sample(0:10,10,rep=TRUE)))

# Create sample plots
plot.a1 <- ggplot(df, aes(x=df$X1, y=df$X2)) +
  geom_point()

plot.a2 <- plot.a1
plot.a <- plot_grid(plot.a1, plot.a2, align = "v", ncol = 1, nrow = 2)

plot.b <- plot.a1

plot.c1 <- plot.a1
plot.c2 <- plot.a1
plot.c <- plot_grid(plot.c1, plot.c2, align = "v", ncol = 1, nrow = 2)

# Create panel figure
plot_grid(plot.a, plot.b, plot.c, labels = c("A", "B", "C"), align = "h", axis = "b", nrow = 1, ncol = 3)

Я ожидал, что при выравниваниипанель горизонтально (align = "h", axis = "b") нижняя ось графика выровняется правильно, однако я делаю что-то не так.

Как я могу выровнять столбцы по горизонтали (по нижней оси)?

Answer 1

plot_grid создает собственные поля для результирующей панели графика.

Если вам нужно plot.b для выравнивания с остальными, просто наберите:

plot.b <- plot_grid(plot.a1)

Даже если этопустой.Затем последнему вызову plot_grid() передаются три элемента, все из которых являются одинаковыми.

plot_grid(plot.a, plot.b, plot.c, labels = c("A", "B", "C"), align = "h", axis = "b", nrow = 1, ncol = 3)