同一美学的多个传说

Question

我正在尝试将facet_grid或facet_wrap与geom_raster结合使用。但是，在每个面板中，z美学的规模都不同。例如，

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

给出

。

然而，由于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") 

给出了

和

但我现在有两个y条。

问题

1. 我可以改变第一个情节，为fill美学提供两个传说吗？
2. 或者，如果我做两个单独的图表，我可以删除其中一个图上的y条带以允许我将它们压在一起 - 弄乱主题，建议这是不可能的。

数据

重现图表的数据

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

这个怎么样：

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。