r - 基于其他列的 ggplot2 构面中的自定义轴中断

Question

我有数据要绘制，其中 x 轴位于一列中，x 轴主要中断位于其他列中。

对于我的示例数据，我将修改 ggplot2 中的 iris 数据集。注意:low 和 high 在这里是任意计算的 - 我只选择了最小值和最大值以便于重现。

library(dplyr)
library(ggplot2)


df <- iris %>% 
  group_by(Species) %>% 
  mutate(low = min(Sepal.Length),
         high = max(Sepal.Length)) %>% 
  ungroup()

> df
# A tibble: 150 x 7
   Sepal.Length Sepal.Width Petal.Length Petal.Width Species   low  high
          <dbl>       <dbl>        <dbl>       <dbl> <fct>   <dbl> <dbl>
 1          5.1         3.5          1.4         0.2 setosa    4.3   5.8
 2          4.9         3            1.4         0.2 setosa    4.3   5.8
 3          4.7         3.2          1.3         0.2 setosa    4.3   5.8
 4          4.6         3.1          1.5         0.2 setosa    4.3   5.8
 5          5           3.6          1.4         0.2 setosa    4.3   5.8
 6          5.4         3.9          1.7         0.4 setosa    4.3   5.8
 7          4.6         3.4          1.4         0.3 setosa    4.3   5.8
 8          5           3.4          1.5         0.2 setosa    4.3   5.8
 9          4.4         2.9          1.4         0.2 setosa    4.3   5.8
10          4.9         3.1          1.5         0.1 setosa    4.3   5.8
# ... with 140 more rows

我希望为 Species 绘制 x = Sepal.Length 刻面，但只有两个主要中断是 df$min 和df$max.

我无法在正确的方面取得突破。

df %>% 
  ggplot(aes(x = Sepal.Length,
             y = Petal.Length)) + 
  geom_point() + 
  facet_wrap(. ~ Species) + 
  scale_x_continuous(breaks = c(df$low, df$high))

如您所见，df$low 和 df$high 的值应用于所有方面。我希望 facet setosa 仅在 4.3 和 5.8 时有重大突破，versicolor 仅在 4.9 和 7.0 时出现重大突破，virginica 在 4.9 和 7.0 时出现重大突破仅限 7.9。

有没有办法将 facet 变量传递给 scale_x_continuous 中的 breaks？或者我应该放弃这种方法并创建三个单独的 ggplots 并将它们与 gridExtra 合并在一起？

如有任何帮助，我们将不胜感激!

Answer 1

这是一个可能的解决方案，使用 patchwork :

library(ggplot2)
library(purrr)
library(patchwork)

df %>% 
  split(.$Species) %>% 
  map(~{
    .x %>% 
      ggplot(aes(x = Sepal.Length,
                 y = Petal.Length)) + 
        geom_point() + 
        facet_wrap(~ Species) + 
        scale_x_continuous(breaks = c(max(.x$low), max(.x$high))) +
        # assuming you want to use same y axis for each plot
        scale_y_continuous(limits = c(min(df$Petal.Length), max(df$Petal.Length)))
  }) %>% 
  reduce(`+`)

我认为这是最简单的方法，不需要弄乱 ggproto