patchwork will get subscript out of bounds when using y axis on the right #340

library(ggplot2)
library(patchwork)
library(egg)
#> Loading required package: gridExtra
p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp)) +
  facet_grid(cyl~ vs,scales="free",switch="both",space = "free_x")+
  theme(strip.placement = "outside",
        axis.title.y.left = element_blank(),
        axis.title.x = element_blank(),
        strip.text.y.left = element_text(angle=0)) 
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))+
  facet_grid(cyl~ vs,scales="free",switch="both",space = "free_x")+
  scale_y_continuous( position = "left")+
  theme(strip.placement = "outside",
        axis.title.y.left = element_blank(),
        axis.title.x = element_blank(),
        strip.text.y.left = element_blank()) 

p1 + p2

p1 +(p2+ scale_y_continuous( position = "right"))
#> Scale for y is already present.
#> Adding another scale for y, which will replace the existing scale.
#> Error in FUN(X[[i]], ...): subscript out of bounds

egg::ggarrange(p1 ,(p2+ scale_y_continuous( position = "right"))
, ncol =2)
#> Scale for y is already present.
#> Adding another scale for y, which will replace the existing scale.