Как добиться одинаковых размеров и масштабов фасетов в нескольких графиках ggplot2 с несколькими гранями?

У меня есть серия графиков ggplot2 с постоянным числом горизонтальных, но различающихся по количеству вертикальных граней. Я хотел бы сохранить графику как .pdf в формате ландшафта a4.

Однако я не знаю, как я могу достичь одинаковых пропорций граней. Если я попытаюсь настроить его вручную и изменить width и height для разных чисел вертикальных граней, шкалы варьируются между графиками, т.е. Я получаю разные размеры точек и ширину линий.

В сущности, как я могу достичь одинаковых размеров граней и шкал для графиков с переменным числом (вертикальных) граней?

Вот пример:

df <- expand.grid(a = 1:2, b = 1:5, x = 1:10)
df$y <- df$x
plot <- ggplot(data = df, mapping = aes(x = x, y = y)) +
            geom_point()
plot1 <- plot + facet_grid(facets = "a ~ b")
plot2 <- plot + facet_grid(facets = ". ~ b")

ggsave(filename = "./figures/plot1.pdf", plot = plot1,
   height = 210, width = 297, units = "mm")

ggsave(filename = "./figures/plot2.pdf", plot = plot2,
   height = 210, width = 297, units = "mm")

set_panel_size <- function(p=NULL, g=ggplotGrob(p), file=NULL, margin = unit(1,"mm"), width=unit(4, "cm"), height=unit(4, "cm")){ panels <- grep("panel", g$layout$name) panel_index_w<- unique(g$layout$l[panels]) panel_index_h<- unique(g$layout$t[panels]) nw <- length(panel_index_w) nh <- length(panel_index_h) if(getRversion() < "3.3.0"){ # the following conversion is necessary # because there is no `[<-`.unit method # so promoting to unit.list allows standard list indexing g$widths <- grid:::unit.list(g$widths) g$heights <- grid:::unit.list(g$heights) g$widths[panel_index_w] <- rep(list(width), nw) g$heights[panel_index_h] <- rep(list(height), nh) } else { g$widths[panel_index_w] <- rep(width, nw) g$heights[panel_index_h] <- rep(height, nh) } if(!is.null(file)) ggsave(file, g, width = convertWidth(sum(g$widths) + margin, unitTo = "in", valueOnly = TRUE), height = convertHeight(sum(g$heights) + margin, unitTo = "in", valueOnly = TRUE)) invisible(g) } print.fixed <- function(x) grid.draw(x)

Ответ 1