Tag: gridextra

将grid.arrange（）绘图保存到文件

我正在尝试使用ggplot2绘制多个图，使用grid.arrange()来排列它们。 由于我设法find某人描述了我所遇到的确切问题，所以我从链接中引用了问题描述： 当我在ggsave()之后使用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() 相同的链接给出了下面的解决scheme： 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()调用的输出在下面的代码，这是从链接 ： library(ggplot2) library(gridExtra) dsamp <- diamonds[sample(nrow(diamonds), 1000), ] p1 <- qplot(carat, price, data=dsamp, colour=clarity) p2 <- qplot(carat, price, data=dsamp, colour=clarity, geom="path") […]

添加一个共同的图例组合ggplots

我有两个ggplots，我水平alignmentgrid.arrange 。 我已经浏览了很多论坛post，但是我尝试的所有东西似乎都是现在已更新并命名为其他内容的命令。 我的数据看起来像这样; # 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 group1 0.211826 -0.306214 […]

左alignment两个graphics边（ggplot）

我正在使用ggplot，并有两个图表，我想要显示在彼此之上。 我使用grid.arrange的grid.arrange来堆叠它们。 问题是我希望graphics的左边缘alignment以及右边缘，而不pipe轴标签。 （问题出现是因为一个图的标签很短而另一个图的标签长）。 问题： 我该怎么做？ 我不嫁给grid.arrange，但ggplot2是必须的。 我试过了： 我试着用宽度和高度以及ncol和nrow来制作一个2 x 2的网格，并将视觉对象放在对angular上，然后用宽度进行播放，但是我不能在对angular看到视觉效果。 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)