Múltiples leyendas para la misma estética

Question

Estoy tratando de usar facet_grid o facet_wrap junto con geom_raster. Sin embargo, en cada panel, la estética z está en una escala diferente. Por ejemplo,

##Data at end of question 
ggplot(dd, aes(x,y)) + 
    geom_raster(aes(fill=z)) + 
    facet_grid(type ~ var) 

da

.

Sin embargo, dado que los valores promedio de C y D son alrededor de 0 y 100 respectivamente, perdemos mucha resolución. También puede probar:

##Change C to D to get other panel 
ggplot(subset(dd, var=="C"), aes(x,y))+ 
    geom_raster(aes(fill=z)) + 
    facet_grid(type ~ var) + 
    theme(legend.position="bottom") 

que da

y

pero ahora tengo dos tiras y.

Pregunta

1. ¿Puedo modificar la primera parcela para dar dos leyendas de la fill estética?
2. O, si hago dos gráficos separados, ¿puedo quitar la tira y en uno de los trazados para permitir que los presione juntos? Al jugar con el tema, sugiere que esto no es posible.

datos

datos para reproducir gráficos

dd = expand.grid(x=1:10, y=1:10) 
dd = data.frame(dd, type=rep(LETTERS[1:2], each=100), 
      var =rep(c("C", "D"), each=200)) 
dd$z = rnorm(400, rep(c(0, 100), each=200)) 

Answer 1

Qué tal esto:

library(gridExtra) 
p1 <- ggplot(subset(dd, var=="C"), aes(x,y))+ 
    geom_raster(aes(fill=z)) + facet_grid(type ~ var) + 
    theme(legend.position="bottom", plot.margin = unit(c(1,-1,1,0.2), "line")) 
p2 <- ggplot(subset(dd, var=="D"), aes(x,y))+ 
    geom_raster(aes(fill=z)) + facet_grid(type ~ var) + 
    theme(legend.position="bottom", plot.margin = unit(c(1,1,1,-0.8), "line"), 
     axis.text.y = element_blank(), axis.ticks.y = element_blank()) + ylab("") 
grid.arrange(arrangeGrob(p1, p2, nrow = 1)) 

también le podría Quiero jugar con plot.margin. Y parece que se puede encontrar una respuesta negativa a su primera pregunta here.