好吧,我很抱歉回答我自己的问题,但我刚刚找到了解决方案..
这可以通过使用很好地实现&
,它将函数应用于拼凑对象中的所有绘图。
1)代表:
library(patchwork)
library(ggplot2)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
p1 <- mtcars %>%
ggplot() +
geom_point(aes(mpg, disp)) +
ggtitle('Plot 1')
p2 <- mtcars %>%
filter(disp < 300) %>%
ggplot() +
geom_point(aes(mpg, disp)) +
ggtitle('Plot 2')
p_combined <- p1 + p2
p_combined
Created on 2020-02-01 by the reprex package https://reprex.tidyverse.org (v0.3.0)
2) 获取范围内的最小值和最大值:
p_ranges_x <- c(ggplot_build(p_combined[[1]])$layout$panel_scales_x[[1]]$range$range,
ggplot_build(p_combined[[2]])$layout$panel_scales_x[[1]]$range$range)
p_ranges_y <- c(ggplot_build(p_combined[[1]])$layout$panel_scales_y[[1]]$range$range,
ggplot_build(p_combined[[2]])$layout$panel_scales_y[[1]]$range$range)
3) 将这些范围应用于拼凑对象:
p_combined &
xlim(min(p_ranges_x), max(p_ranges_x)) &
ylim(min(p_ranges_y), max(p_ranges_y))
Created on 2020-02-01 by the reprex package https://reprex.tidyverse.org (v0.3.0)