相同美学的多个传说

我正在尝试使用facet_grid or facet_wrap和这个结合geom_raster。然而，在每个面板中，z审美是不同尺度的。例如，

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

gives

.

然而，由于 C 和 D 的平均值分别约为 0 和 100，因此我们损失了很多分辨率。您还可以尝试：

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

这使

and

但我现在有两个 y 带。

Question

1. 我可以改变第一个情节来给出两个图例吗fill审美的？
2. 或者，如果我做两个单独的图表，我可以删除其中一个图上的 y 带，以便我将它们压在一起 - 搞乱了主题，表明这是不可能的。

Data

重现图表的数据

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

那这个呢：

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

你也可能想玩玩plot.margin。似乎你的第一个问题可以找到否定的答案here.