Ответ Роланда нуждается в обновлении. См. https://github.com/hadley/ggplot2/wiki/Share-a-legend-between-two-ggplot2-graphs
Этот метод был обновлен для ggplot2 v1.0.0.
library(ggplot2)
library(gridExtra)
library(grid)
grid_arrange_shared_legend <- function(...) {
plots <- list(...)
g <- ggplotGrob(plots[[1]] + theme(legend.position="bottom"))$grobs
legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
lheight <- sum(legend$height)
grid.arrange(
do.call(arrangeGrob, lapply(plots, function(x)
x + theme(legend.position="none"))),
legend,
ncol = 1,
heights = unit.c(unit(1, "npc") - lheight, lheight))
}
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
p1 <- qplot(carat, price, data=dsamp, colour=clarity)
p2 <- qplot(cut, price, data=dsamp, colour=clarity)
p3 <- qplot(color, price, data=dsamp, colour=clarity)
p4 <- qplot(depth, price, data=dsamp, colour=clarity)
grid_arrange_shared_legend(p1, p2, p3, p4)
Обратите внимание на отсутствие ggplot_gtable
и ggplot_build
. ggplotGrob
используется вместо этого. Этот пример немного более сложный, чем вышеупомянутое решение, но он все еще решил его для меня.
/etc/lightdm/lightdm.conf
использование этой команды
gksu gedit /etc/lightdm/lightdm.conf
И добавляют эти две строки к [SeatDefaults]
раздел
greeter-hide-users=true
allow-guest=false
<час> Взятый От : http://www.puppychau.com/archives/130