r - ggplot にシェープファイルをプロットする

Question

library(raster)
library(ggplot2)

map.shp <- getData('GADM', country='FRA', level=1)

plot(map.shp)
ggplot(mtcars, aes(x = hp, y = disp)) + geom_point()

map.shpggplot の右側に小さなインセットとして配置するにはどうすればよいですか。