R setting space between graphs on a multiplot

Следуя предыдущему сообщению R Specifying ggplot2 panel width, я смог получить этот график:

с помощью этого кода.

Вы можете найти вывод dput(datos) на http://ubuntuone.com/0Nlb97mOeDhSbFrbFKCeEG

Теперь мой вопрос в том, как я могу удалить/сократить белое пространство между графиками. Я нашел примеры с пакетом ggExtra, ggplot и facet, multiplots с опциями plot.margin или panel.margin, но не смог найти, как применить к моему случаю.

Спасибо за помощь.

EDIT: Я только что заметил, что у участков не одинаковая ширина. Необходимо, чтобы они имели одинаковую ширину, чтобы они могли совместно использовать метки оси x из нижней части графика.