График стандартных размеров с легендами или без них (ggplot, grid.arrange)

Question

У меня есть серия графиков (более 10), расположенных на 2 колонны с использованием grid.arrange. Поскольку все они имеют одинаковые метки оси X, я строю метки только для последнего массива. Однако часть графиков последнего массива сжата и уменьшена в размере

Вот воспроизводимый пример проблемы:

source("http://www.openintro.org/stat/data/arbuthnot.R")
library(ggplot2)
library(reshape2)
library(gridExtra)

names(arbuthnot) <- c("Year", "Men", "Women")

arbuthnot.melt <- melt(arbuthnot, id.vars = 'Year', variable.name = 'Sex', 
                       value.name = 'Rate')

p1 <- ggplot(arbuthnot.melt, aes(x = Year, y = Rate, shape = Sex, color = Sex, linetype = Sex))+
  geom_line() + scale_color_manual(values = c("Women" = '#ff00ff','Men' = '#3399ff')) + 
  scale_linetype_manual(values = c('Women' = 'solid', 'Men' = 'dotted')) +
  theme (axis.text.x=element_blank(),axis.title.x=element_blank())

p2 <- ggplot(arbuthnot.melt, aes(x = Year, y = Rate, shape = Sex, color = Sex, linetype = Sex))+
  geom_line() + scale_color_manual(values = c("Women" = '#ff00ff','Men' = '#3399ff')) + 
  scale_linetype_manual(values = c('Women' = 'solid', 'Men' = 'dotted')) +
  theme (axis.text.x=element_blank(),axis.title.x=element_blank())

p3 <- ggplot(arbuthnot.melt, aes(x = Year, y = Rate, shape = Sex, color = Sex, linetype = Sex))+
  geom_line() + scale_color_manual(values = c("Women" = '#ff00ff','Men' = '#3399ff')) + 
  scale_linetype_manual(values = c('Women' = 'solid', 'Men' = 'dotted')) +
  scale_x_continuous(expand = c(0, 0), labels=c("FSSFDFSDSDF", "ASD","QDDZXCC","QDDZXCC","QDDZXCC")) +
  theme(axis.text.x = element_text(hjust = 1, angle=90))

p4 <- ggplot(arbuthnot.melt, aes(x = Year, y = Rate, shape = Sex, color = Sex, linetype = Sex))+
  geom_line() + scale_color_manual(values = c("Women" = '#ff00ff','Men' = '#3399ff')) + 
  scale_linetype_manual(values = c('Women' = 'solid', 'Men' = 'dotted')) +
  scale_x_continuous(expand = c(0, 0), labels=c("FSSFDFSDSDF", "ASD","QDDZXCC","QDDZXCC","QDDZXCC")) +
  theme(axis.text.x = element_text(hjust = 1, angle=90))

grid.arrange(p1, p2, p3, p4, ncol=2)

Можно ли стандартизировать форматы сюжета без учета того, что они имеют легенду или нет? В моём случае даже невозможно прочитать содержание двух последних сюжетов ...