ggplot2 +facet_：某些方面的反转轴？

我想将三个子图组合成一个图，而分面将是一种自然的方法。然而，使用反转的 x 轴，这些子图之一会更容易/更自然地阅读（而我想不理会其他子图）。有没有办法使用facet_grid() 或facet_wrap() 来完成此任务？

我考虑过的另一种选择是 grid.arrange() ，我遇到的主要问题是让它根据绘图区域（轴内）而不是根据图像的边缘来对齐子图。 （我的轴标题和标签大小不同，因此默认行为相当难看。）

编辑添加 MWE以及一些上下文数据。在这里，由于 beta 和 R 平方子图越大“越好”，因此反转 p 子图的轴会更自然。 （在这种情况下，将对数变换添加到该比例可能会更好，但我真正的问题不需要那么花哨。）

df <- data.frame(z=c(rep("R-squared",15),rep("p",15),rep("beta",15)),
                 x=c(runif(15),exp(-runif(15,1,10)),rnorm(15,1,0.5)),
                 y=rep(letters[1:15],3))
plot <- ggplot(df) + geom_point(aes(x=x,y=y)) + facet_grid(.~z, scales="free_x", switch="x")

这是一个使用的解决方案拼凑而成 https://github.com/thomasp85/patchwork

library(ggplot2)
library(dplyr)
df <- data.frame(z=c(rep("R-squared",15),rep("p",15),rep("beta",15)),
                 x=c(runif(15),exp(-runif(15,1,10)),rnorm(15,1,0.5)),
                 y=rep(letters[1:15],3))

p1 <- ggplot(filter(df, z == "beta"), aes(x, y)) +
  geom_point() 

p2 <- ggplot(filter(df, z == "p"), aes(x, y)) +
  geom_point() +
  scale_x_reverse() +
  theme(axis.title.y = element_blank(),
        axis.text.y  = element_blank(),
        axis.ticks.y = element_blank())

p3 <- ggplot(filter(df, z == "R-squared"), aes(x, y)) +
  geom_point() +
  theme(axis.title.y = element_blank(),
        axis.text.y  = element_blank(),
        axis.ticks.y = element_blank())

#devtools::install_github("thomasp85/patchwork")
library(patchwork)
p1 + p2 + p3