r - 相同美学的多个传说

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 条。

问题

我可以改变第一个情节来为 fill 提供两个图例吗​​？审美的？

或者，如果我绘制两个单独的图形，是否可以删除其中一个图形上的 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 .