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)