Magic Mouse Multitouch в Ubuntu 12.04

@Guiseppe:

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

plots <- list(p1, p2)
g <- ggplotGrob(plots[[1]] + theme(legend.position="bottom"))$grobs
legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
lheight <- sum(legend$height)
tmp <- arrangeGrob(p1 + theme(legend.position = "none"), p2 + theme(legend.position = "none"), layout_matrix = matrix(c(1, 2), nrow = 1))
grid.arrange(tmp, legend, ncol = 1, heights = unit.c(unit(1, "npc") - lheight, lheight))