按面分隔 y 轴标签或删除图例但保留空间

好吧，我被自制的 ggplot 难住了。

我想做的是具有不同 y 轴的三行一列多面图label对于每个方面。 y 轴的单位都相同。这将是最方便的，但谷歌搜索告诉我这可能不可能。

另外，我发现this https://groups.google.com/forum/#!topic/ggplot2/0gRO0Pkd6Yo使用 grid.arrange 的解决方案，这似乎可以工作。但是，我只想为一个图保留图例，并将其从其他两个图中删除，但保持间距，就好像它仍然在那里一样，以便一切都排列得很好。有人拥有同样的问题 https://groups.google.com/forum/#!topic/ggplot2/qDgMsaPkhCE几年前，但建议的解决方案已被贬值，我无法弄清楚如何使其在现代 ggplot 中工作。

任何帮助表示赞赏！使用方面会是最简单的！

使用下面的 user20560 的 gridArrange 解决方案后进行编辑以添加绘图副本。已经快到了，只是想拿回顶部和底部面板周围的盒子！

我假设（可能是错误的）您想要添加单独的 y 轴标题而不是轴标签。 [如果您想要不同的标签，您可以使用scales论证中facet_grid]

将会有一个ggplot有几种方法可以做到这一点，但这里有几种您可以自己调整 glob 的方法。

所以使用mtcars数据集为例

library(ggplot2)
library(grid)
library(gridExtra)

One way

p <- ggplot(mtcars, aes(mpg, wt, col=factor(vs))) +   geom_point() + 
                                 facet_grid(gear ~ .)

# change the y axis labels manually
g <- ggplotGrob(p)
yax <- which(g$layout$name=="ylab")

# define y-axis labels
g[["grobs"]][[yax]]$label <- c("aa","bb", "cc")

# position of labels (ive just manually specified)
g[["grobs"]][[yax]]$y <- grid::unit(seq(0.15, 0.85, length=3),"npc")

grid::grid.draw(g)

Or using grid.arrange

# Create a plot for each level of grouping variable and y-axis label
p1 <- ggplot(mtcars[mtcars$gear==3, ], aes(mpg, wt, col=factor(vs))) + 
                                 geom_point() + labs(y="aa") + theme_bw()
p2 <- ggplot(mtcars[mtcars$gear==4, ], aes(mpg, wt, col=factor(vs))) +  
                                 geom_point() + labs(y="bb") + theme_bw()
p3 <- ggplot(mtcars[mtcars$gear==5, ], aes(mpg, wt, col=factor(vs))) +  
                                 geom_point() + labs(y="cc") + theme_bw()

# remove legends from two of the plots
g1 <- ggplotGrob(p1)
g1[["grobs"]][[which(g1$layout$name=="guide-box")]][["grobs"]] <- NULL

g3 <- ggplotGrob(p3)
g3[["grobs"]][[which(g3$layout$name=="guide-box")]][["grobs"]] <- NULL

gridExtra::grid.arrange(g1,p2,g3)

如果您想添加轴标题，我应该问why你想要一个不同的标题 - 侧面条文本可以不做吗？