如何为平铺图中的每个组/因子设置不同的比例

【问题标题】：How to set different scales for each group/factor in tile plot如何为平铺图中的每个组/因子设置不同的比例
【发布时间】：2016-11-10 08:53:13
【问题描述】：

我有下面给出的代码

d = data.frame(sites=rep(paste("S", 1:31),each=12),
               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 = sites, y = factor(0))) + 
   geom_tile(aes(fill = value)) + 
   scale_fill_gradient(low = "green", high = "blue") +
   facet_wrap(~ panel, ncol = 1)

现在，我想要为每组单独的渐变比例，而不是单一比例。

【问题讨论】：

见this post和this one as well
同种颜色显示不同比例的原因是什么？

标签： r ggplot2

【解决方案1】：

在ggplot2 内无法做到这一点，所以gridExtra 来救援！

library(ggplot2)
library(gridExtra)

n <- length(unique(d$panel))
l <- vector(mode = "list", length = n)
for (i in 1:n) {
  dd <- d
  dd[d$panel!=unique(d$panel)[i], "value"] <- NA
  l[[i]] <- 
    ggplot(dd, aes(x = sites, y = 0)) + 
      geom_tile(aes(fill = value)) + 
      scale_fill_gradient(low = "green", high = "blue", na.value = NA)
}

grid.arrange(grobs = l, ncol = 1)

为了说明不同的比例，改d$value[d$panel == "Group 3"] <- rnorm(36)：

【讨论】：