Удалить пробел в ggarrange, ggplot2 - PullRequest
Новая
       17

Удалить пробел в ggarrange, ggplot2

0 голосов
/ 17 января 2019

Скажем, у меня есть три КВАДРАТНЫХ участка, p1, p2, p3, сделанные из пакета ggplot2.Я применил команду ggarrange в пакете ggpubr, чтобы сделать график 1 * 3 после этого.Вот команды: 

library(ggplot2)
library(ggpubr)
library(gridExtra)
data <- data.frame(matrix(seq(1, 30, 1), 2))

for(i in 1:5){
  plot1 <- ggplot(data = data, aes(y = data[, (i*3-2)])) + 
      theme(aspect.ratio = 1)
  plot2 <- ggplot(data = data, aes(y = data[, (i*3-1)])) + 
      theme(aspect.ratio = 1)
  plot3 <- ggplot(data = data, aes(y = data[, (i*3)])) + 
      theme(aspect.ratio = 1)
  p <- ggarrange(plot1, plot2, plot3,
                 ncol = 3, common.legend = TRUE, legend = "bottom")
  grid.arrange(p, top = paste(colnames(data)[i]), heights = c(1, 1))
}

Выход rmarkdown (ниже) показывает большое пустое пространство под упорядоченными графиками:

enter image description here

Есть ли способ удалить это?Я подумал об изменении размера холста по умолчанию.

...