r - ggplot2 瓦片图，具有不同高度的水平面板

Question

这基本上是同一个问题this one ，但有一个重要区别:我想要一个基于 ggplot2 的图 block 图，带有水平 面板，并且所有图 block 的高度都相同。另一个问题是关于垂直面板的。

这是一些示例代码，基于另一个问题中的代码:

d = data.frame(sites=rep(paste("S", 1:31),each=12),
               month=factor(rep(1:12,31)),
               value=runif(31*12),
               panel=c(rep("Group 1",16*12), rep("Group 2", 12*12),
                       rep("Group 3", 3*12)))

绘制此使用

ggplot(d, aes(x=month, y=sites, fill=value)) + 
  geom_tile(colour="white") + facet_wrap(~panel, nrow=1)

结果为

基本上，我希望每个蓝色方 block 都向上移动，这样它们上面就没有空间了。我可以使用

ggplot(d, aes(x=month, y=sites, fill=value, colour="white")) + 
  geom_tile(colour="white") + facet_wrap(~panel, scales="free_y", nrow=1)

但这会导致瓷砖高度不等:

The other question有一个很好的垂直面板解决方案，但将其应用于上面的代码没有效果。水平面板是否有类似的解决方案？

Answer 1

这是使用 gridExtra 和设置关卡的技巧:

d.splt <- split(d, d$panel)
max.unique <- max(sapply(d.splt, function(x) length(unique(x$sites))))
d.gg <- lapply(d.splt, function(d.sub){
  lvls <- unique(as.character(d.sub$sites))
  length(lvls) <- max.unique
  lvls <- replace(lvls, is.na(lvls), "")
  d.sub$sites <- factor(as.character(d.sub$sites), levels=lvls)

  ggplot(d.sub, aes(x=month, y=sites, fill=value, colour="white")) + 
    geom_tile(colour="white", stat="identity") +
    scale_y_discrete(drop=F) + scale_fill_continuous(guide=F)
} )
library(gridExtra)
do.call(grid.arrange, c(d.gg, list(nrow=1)))

这会抛出一些警告，但您可以忽略它们。此外，您还需要添加标题和图例(您可以扰乱逻辑，以便最后一个产生图例)。

这样做的主要问题是色标将独立适合每个图形，但您可以强制修复它。