Added insets to map and an insetting function (asks for zoom level and extent of zoom area, and location of zooming box. Next step is to make inset_zoom work like a normal ggplot2 function (just add with a +).