Più leggende per la stessa estetica

Question

Sto cercando di utilizzare facet_grid o facet_wrap insieme a geom_raster. Tuttavia, in ciascun pannello, l'estetica z è su una scala diversa. Ad esempio,

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

dà

.

Tuttavia, poiché i valori medi di C e D sono rispettivamente di circa 0 e 100, perdiamo molta risoluzione. Si potrebbe anche provare:

##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") 

che dà

e

ma ora ho due strisce y.

Domanda

1. Posso alterare il primo lotto di dare due leggende per il fill estetica?
2. Oppure, se faccio due grafici separati, posso rimuovere la striscia y su uno dei grafici per consentirmi di comprimerli - fare confusione con il tema, suggerisce che questo non è possibile.

dati

dati per riprodurre grafici

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

Che dire di questo:

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)) 

anche voi potrebbe voglio giocare con plot.margin. E sembra che una risposta negativa alla tua prima domanda possa essere trovata here.