set axes limits in patchwork when combining ggplot2 objects

Question

When combining ggplot2 objects using patchwork I would like to be able to have an option that I could easily set an option for all the plots to have the same x-axis and/or y-axis range.

reprex:

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')

p1 + p2

^{Created on 2020-02-01 by the reprex package (v0.3.0)}

expected result setting it to both axes having the same range across both plots:

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') +
  xlim(ggplot_build(p1)$layout$panel_scales_x[[1]]$range$range) +
  ylim(ggplot_build(p1)$layout$panel_scales_y[[1]]$range$range)

p1 + p2

^{Created on 2020-02-01 by the reprex package (v0.3.0)}

Does anyone have any ideas?

Can I ask what's wrong with what you're already doing? What would a solution look like? Would you want some function like f(p1 + p2) that set the axes equally? — Allan Cameron
– Allan Cameron, Commented Feb 1, 2020 at 11:57
yeah I was expecting to be able to have an option directly in the pkg to do that, since my real example is much more complex.. although, I have found the solution now, I will post the answer soon — FMM
– FMM, Commented Feb 1, 2020 at 15:32

FMM · Accepted Answer · 2020-02-01 15:39:58Z

21

Alright, I am sorry for answering my own question, but I just found the solution..

This can be nicely achieved by using the &, which applies the function to all the plots in the patchwork object.

1) reprex:

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 (v0.3.0)}

2) Get the min and max values from the ranges:

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) Apply these ranges to the patchwork object:

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 (v0.3.0)}

answered Feb 1, 2020 at 15:39

FMM

2,0552 gold badges18 silver badges43 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

UseR10085 Over a year ago

How will it work when we have more than two plots?

Jason Aller · Accepted Answer · 2020-03-06 17:02:08Z

5

Here is a slight modification make the above operation into a function:

apply_consistent_y_lims <- function(this_plot){
    num_plots <- length(this_plot$layers)
    y_lims <- lapply(1:num_plots, function(x) ggplot_build(this_plot[[x]])$layout$panel_scales_y[[1]]$range$range)
    min_y <- min(unlist(y_lims))
    max_y <- max(unlist(y_lims))
    this_plot & ylim(min_y, max_y)
}

edited Mar 6, 2020 at 17:02

Jason Aller

3,66028 gold badges43 silver badges40 bronze badges

answered Mar 6, 2020 at 16:35

squidy

611 bronze badge

4 Comments

MartineJ Over a year ago

Very nice solution, beware however: it cuts of data in the right plot, when it has data with higher y values than the left plot, to see this try apply_consistent_y_lims(p2+p1)

MartineJ Over a year ago

See also stackoverflow.com/questions/7705345/…

Ian Over a year ago

@MartineJ I'm not seeing that problem, function seems to work just fine for me, so far.

MartineJ Over a year ago

strange, for me it still ( in the mean while other RStudio, R and packages versions) removes 11 rows containing missing values (geom_point), when i run apply_consistent_y_lims(p2+p1).

Collectives™ on Stack Overflow

set axes limits in patchwork when combining ggplot2 objects

2 Answers 2

1 Comment

4 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

4 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related