Делая размер нескольких участков одинаковыми

Question

Вот MWE:

library(ggpubr)

# Box plot (bp)
bxp <- ggboxplot(ToothGrowth, x = "dose", y = "len",
             color = "dose", palette = "jco")
bxp
# Dot plot (dp)
dp <- ggdotplot(ToothGrowth, x = "dose", y = "len",
             color = "dose", palette = "jco", binwidth = 1)
dp

ggarrange(bxp, dp, bxp + rremove("x.text"), 
      labels = c("A", "B", "C"),
      ncol = 2, nrow = 2)

ggarrange(bxp,
      ncol = 2, nrow =2)

Я сделал 2 графика. Первый имеет 3 графика в сетке 2 x 2.

Второй имеет 1 график также в сетке 2 x 2. Таким образом, исходные 3 графика и последний 1 график имеют одинаковый размер.

Как я могу создать последний график в сетке 2 x 1, но он должен остаться того же размера, что и в сетке 2 x 2?

Answer 1

Когда вы храните график, например, используя ggsave(), он имеет параметры height и width, которые можно указать:

ggsave(filename, plot = last_plot(), device = NULL, path = NULL,
  scale = 1, width = NA, height = NA, units = c("in", "cm", "mm"),
  dpi = 300, limitsize = TRUE, ...)

Установив его на те же цифры, вы получите график одинакового размера.

Также, если вы нажмете кнопку "Экспорт" в окне графика, а затем сохраните как изображение, вы получите изображение ниже, а в красной части вы можете указать размер изображения.

Ура!