Questions tagged «gridextra»

我有两个ggplots，它们与水平对齐grid.arrange。我浏览了很多论坛帖子，但是我尝试的所有内容似乎都是现在已更新并命名为其他名称的命令。 我的数据看起来像这样； # Data plot 1 axis1 axis2 group1 -0.212201 0.358867 group2 -0.279756 -0.126194 group3 0.186860 -0.203273 group4 0.417117 -0.002592 group1 -0.212201 0.358867 group2 -0.279756 -0.126194 group3 0.186860 -0.203273 group4 0.186860 -0.203273 # Data plot 2 axis1 axis2 group1 0.211826 -0.306214 group2 -0.072626 0.104988 group3 -0.072626 0.104988 group4 -0.072626 0.104988 …

138 r  ggplot2  legend  gridextra 

我正在尝试使用绘制多个图，使用来ggplot2排列它们grid.arrange()。由于我设法找到描述我所遇到的确切问题的人，因此引用了链接中的问题描述： 当我使用ggsave()after grid.arrange()，即 grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2) ggsave("sgcirNIR.jpg") 我不保存网格图，而是最后一个单独的ggplot。有没有什么实际方法可以grid.arrange()使用 ggsave()或类似方式保存显示的图？除了使用较旧的方式 jpeg("sgcirNIR.jpg") grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2) dev.off() 相同的链接提供以下解决方案： require(grid) require(gridExtra) p <- arrangeGrob(qplot(1,1), textGrob("test")) grid.draw(p) # interactive device ggsave("saving.pdf", p) # need to specify what to save explicitly 但是，我无法弄清楚如何使用下面的代码ggsave()来保存grid.arrange()调用的输出，该代码取自link： library(ggplot2) library(gridExtra) dsamp <- diamonds[sample(nrow(diamonds), 1000), ] p1 <- qplot(carat, price, data=dsamp, colour=clarity) p2 <- qplot(carat, price, data=dsamp, …

137 r  ggplot2  gridextra 

我正在使用ggplot，并且有两个图形要彼此叠加显示。我使用grid.arrangegridExtra来堆叠它们。问题是我希望图形的左边缘与右边缘对齐，而与轴标签无关。（出现问题是因为一个图形的标签较短而另一个图形的标签较长）。 问题： 我该怎么做？我没有嫁给grid.arrange，但ggplot2是必须的。 我尝试过的方法： 我尝试使用宽度和高度以及ncol和nrow来制作2 x 2网格，并将视觉效果放置在相对的角上，然后使用宽度进行播放，但是我无法在相对的角落获得视觉效果。 require(ggplot2);require(gridExtra) A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() grid.arrange(A, B, ncol=1)

105 r  ggplot2  gridextra  gtable