ggplot：覆盖两个图

Question

是否可以使用gridExtra（或其他包）叠加两个图？

我想重新缩放一个绘图并将其覆盖到第二个绘图（指定重新缩放和坐标）

require(ggplot2)
require(gridExtra)

df <- data.frame(value=rnorm(10), date=1:10)

p1 <- ggplot(data.frame(df), aes(value,date)) + geom_line()
p2 <- ggplot(data.frame(df), aes(value,date)) + geom_point()

获得类似的东西

Answer 1

与gtable结合使用gridExtra包。您可以根据需要指定绘图的大小和坐标。

require(gtable)

p1 <- ggplotGrob(p1)
p2 <- ggplotGrob(p2)

gt <- gtable(widths = unit(c(1, 2), "null"), heights = unit(c(.2, 1, 1), "null"))
gt <- gtable_add_grob(gt, p2, t = 1, b = 3, l = 1, r = 2)
gt <- gtable_add_grob(gt, p1, t = 2, l = 2)
grid.draw(gt)