不同colourbar在ggplot图

Question

说每个方面，我做一个gpplot2情节就像几个方面如下：

ggplot(iris) + 
    geom_tile(aes(x = Petal.Width, fill = Sepal.Width, y = Petal.Length)) + 
    facet_wrap(~Species) 

请注意，没有对所有三个地块一个colourbar，但每个方面可能有非常不同的价值。是否有可能为每个方面都有一个单独的颜色条？

Answer 1

我同意Alex's answer，但是根据我的更好的科学和设计判断，我对它进行了刺探。

require(gridExtra) 
require(dplyr) 

iris %>% group_by(Species) %>% 
    do(gg = {ggplot(., aes(Petal.Width, Petal.Length, fill = Sepal.Width)) + 
     geom_tile() + facet_grid(~Species) + 
     guides(fill = guide_colourbar(title.position = "top")) + 
     theme(legend.position = "top")}) %>% 
    .$gg %>% arrangeGrob(grobs = ., nrow = 1) %>% grid.arrange() 

当然，那么你复制大量的标签，这是烦人。此外，通过将每个物种绘制为单独的绘图而不是单个绘图的刻面，您会丢失x和y刻度信息。您可以通过在该ggplot调用中添加... + coord_cartesian(xlim = range(iris$Petal.Width), ylim = range(iris$Petal.Length)) + ...来修复坐标轴。

说实话，唯一有意义的方法是如果它比较两个不同的填充变量，这就是为什么你不关心比较他们之间的真实值的情节。一个好的替代方法是使用dplyr::group_by()和dplyr::percent_rank将它们重新缩放到一个百分点内。

---

编辑更新：

在两个不同的变量的情况下，你必须先“融化”的数据，我假设你已经做了。这里我用iris数据重复它。然后，您可以通过检查百分位数而不是两个变量的绝对值来查看相对值。

iris %>% 
    tidyr::gather(key = Sepal.measurement, 
       value = value, 
       Sepal.Length, Sepal.Width) %>% 
    group_by(Sepal.measurement) %>% 
    mutate(percentilevalue = percent_rank(value)) %>% 
    ggplot(aes(Petal.Length, Petal.Width)) + 
    geom_tile(aes(fill = percentilevalue)) + 
    facet_grid(Sepal.measurement ~ Species) + 
    scale_fill_continuous(limits = c(0,1), labels = scales::percent) 

Answer 2

Separate palettes for facets in ggplot facet_grid

已经问过。这是迄今为止我看到的最好的解决方案，但是我认为从可视化的角度来看，共用调色板更为理想。