ggplot: overlay two plots

Question

Is it possible to overlay two plots with gridExtra (or other package)?

I want to rescale one plot and overlay it to a second one (specifying rescaling and coordinates)

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()

to obtain something like this

enter image description here

possible duplicate of [Embedding a miniature plot within a plot](http://stackoverflow.com/questions/7793935/embedding-a-miniature-plot-within-a-plot) — user20650, May 29 '15 at 17:18

score 4 · Accepted Answer · answered May 29 '15 at 15:28

4

Look at gtable package in combination with gridExtra. You can specify size and coordinates of plot as you like.

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)

enter image description here

answered May 29 '15 at 15:28

inscaven

2,514
19
29

1

You'll need to load `grid` package to be able to use `grid.draw` – moodymudskipper Aug 30 '17 at 09:04
Could you be so kind to explain how we can specify coordinates for the plots? Because I can't find how it works. Thank you. – D1X May 24 '19 at 17:27

ggplot: overlay two plots

1 Answers1