1

我想在同一个图中用 char 绘制两条线ggplot2。我知道您可以使用 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")

但不幸的是，我仍然只得到一个 char p2 看图片在此处输入图像描述

为什么 ？

4

2 回答 2

2

像这样包裹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)
于 2015-04-02T15:54:12.290 回答
0

在我看来，一个更好的解决方案是完全避免grid.arrange使用arrangeGrob，这让您可以灵活地使用该ggsave功能。

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

ggsave(big_plot, ...)
于 2015-04-02T22:00:01.093 回答