ggplot2：为什么grid.arrange不工作？

Question

我想在ggplot2的同一个地块中绘制两行char。我知道你可以用grid.arrange做到这一点，但我的代码中肯定遗漏了一些东西。

以下是我的数据，我想要绘制时间和费率

motor;trace;time;rate
monetDBIE;1m;5448;183553
monetDBIE;2m;8734;228990
monetDBIE;5m;19468;256831
Jena;1m;8273;120875
Jena;2m;16916;118231
Jena;5m;44776;111666
PGSQLIE;1m;6859;145793
PGSQLIE;2m;13106;152601
PGSQLIE;5m;32793;152471

这是我的代码

require("ggplot2")
require("gridExtra")

w <- read.csv(file="loading.csv", head=TRUE, sep=";")

# first plot
p <- ggplot(data=w, aes(x=trace, y=time, colour=motor, shape=motor))

p <- p + geom_point(size=4)

p <- p + geom_line(size=1,aes(group=motor))

p <- p + geom_text(aes(label=time), hjust=-0.2, vjust=1)

p <- p + ggtitle("Triplestores ")

p <- p + labs(x = "Traces", y = "Temps (ms)")

p <- p + theme_bw()

# second plot
p2 <- ggplot(data=w, aes(x=trace, y=rate, colour=motor, shape=motor))

p2 <- p2 + labs(x = "Traces", y = "débit de chargement (triplets/s)")

p2 <- p2 + geom_point(size=4)

p2 <- p2 + geom_line(size=1,aes(group=motor))

p2 <- p2 + geom_text(aes(label=rate), hjust=-0.2, vjust=1)

p2 <- p2 + theme_bw()

grid.arrange(p, p2, nrow=2, ncol=1)

ggsave(file="loading.pdf")

但不幸的是，我仍然只得到一个字符p2，看到图片

为什么？

Answer 1

将grid.arrange包裹在pdf中，如下所示：

library(ggplot2)
library(gridExtra)
p1 <- p2 <- ggplot(mtcars, aes(factor(cyl))) + geom_bar()
pdf(tf <- tempfile(fileext = ".pdf"))
grid.arrange(p1, p2)
dev.off()
shell.exec(tf)

Answer 2

我认为更好的解决方案是完全避免grid.arrange并简单地使用arrangeGrob，这样可以灵活地使用ggsave函数。

big_plot <- arrangeGrob(p, p2, nrow=2, ncol=1)
print(big_plot)

ggsave(big_plot, ...)