# NOT RUN {
library(ggplot2)
# make a plot
p <- ggplot(data.frame(x = 1:3, y = 1:3), aes(x, y)) +
geom_point()
# draw into the top-right corner of a larger plot area
ggdraw() + draw_plot(p, .6, .6, .4, .4)
# }
Run the code above in your browser using DataLab