如何将两个 ggplots 与一个旋转的结合?

How to combine two ggplots with one rotated?

如何将两个 ggplots g1 和 g2 组合在一起,一个在左边,一个在右边,旋转 90°(只有右边的)?

我已经查看了 grid 和 gridExtra 包,但我没有找到解决所有这些问题的方法。

第二个情节的 widthheight 可能需要进行一些调整,但这似乎有效:

p <- qplot(1:10)

library(grid)
grid.newpage()
print(p, vp=viewport(0, 0, width = unit(0.5, "npc"), just = c('left', 'bottom')))
print(p, vp=viewport(0.5, 0, angle = 90, height = unit(0.8, "npc"), width = 0.55, just = c('left', 'top')))