为 ggplot2 中的每个方面设置不同的轴限制，不使用刻度=“自由”

我想要的一般解决方案是能够独立地为每个面指定任意轴限制。

通过将秤设置为自由来获得基本功能。例如：

ggplot(diamonds, aes(x = carat, y = price)) + geom_point() + facet_wrap(~clarity, nrow = 4, ncol = 2, scales = "free")

这实际上是一个非常好的功能，但在实践中并不总是那么有用。通常我们想要的是在同一轴上具有可比较的变量子组。作为一个玩具示例，请考虑上面的钻石盒。我们可能希望第一列中的所有面具有相同的轴限制，并且第二列中的所有面具有相同的轴限制（但与第一列不同）。

有没有解决方案可以实现此目的standardggplot 的用法。

在结束之前，我认为扩展 @Axeman 的建议很重要：这可能不可能facet_wrap直接，但是可以通过将所需的组分块并将它们缝合在一起来实现该行为cowplot。在这里，我将质量分为“低”和“高”，但分组是任意的，可以是您想要的任何分组。可能想稍微改变一下样式，但默认值来自cowplot为此目的是可以接受的：

library(cowplot)

lowQ <- 
  ggplot(diamonds %>%
           filter(as.numeric(clarity) <= 4)
         , aes(x = carat
               , y = price)) +
  geom_point() +
  facet_wrap(~clarity
             , nrow = 1)  


hiQ <- 
  ggplot(diamonds %>%
           filter(as.numeric(clarity) > 4)
         , aes(x = carat
               , y = price)) +
  geom_point() +
  facet_wrap(~clarity
             , nrow = 1)

plot_grid(lowQ, hiQ, nrow = 2)