Как увеличить размер сюжета в результате grid.arrange

Question

Я работаю с R и Shiny, чтобы показывать разные таблицы одновременно, используя пакеты ggplot2 и gridExtra.

Моя проблема в том, что когда я пытаюсь использовать gridExtra для объединения 12 графиков, они оказываются крошечными.

Код для слияния следующий:

grid.arrange(p1, p12, p2, p22, p3, p32, p4, p42, p5, p52, p6, p62,
             ncol=2)

И вот как кодируются все графики:

p62 = ggplot(data = dataframe1, aes(x = Week, y = DB, con = Type)) +
  xlab("Week") +
  ggtitle("Country") +
  theme(plot.title = element_text(size = 10, face = "italic")) +
  ylab("DB") +
  geom_line(size = 1) +
  geom_line(aes(colour = Type), size = 1) + 
  guides(col = guide_legend(title = "Period")) + 
  scale_color_manual(values = c('#999999', '#E69F00', "purple"))

Когда я тестирую его, используя только 4 графика, размер отдельных графиков идеален:

Но когда я пишу все 12, они становятся крошечными:

Мой вопрос: есть ли способ изменить размер отдельных участков?

Answer 1

Этот ответ состоит из нескольких частей:

В Shiny, чтобы увеличить размер (высоту) или вывод графика, используйте аргумент высоты в элементе вывода в вашем пользовательском интерфейсе:

plotOutput(outputId, height = "400px")

Далее, как подсказал @Tung, вам не нужно строить все лишние легенды. См. grid_arrange_shared_legend в пакете lemon и, возможно, g_legend.