baseInset = get_map(location=c(-160.8,18.5,-154.625,22.5), zoom=8, maptype="terrain")

mapInset<-ggmap(baseInset2)

Inset <- mapInset
+ geom_point(data=CoordInset, aes(x=-Long, y=Lat, fill=Type, shape=Type), color="black", cex=1.4, show.legend=FALSE)
+ scale_fill_manual(values=c("red", "blue"), labels=c("Molokaiense (not geo-referenced)", "Oahuense (not geo-referenced)"))
+ scale_shape_manual(values = c(21,23), labels=c("Molokaiense (not geo-referenced)", "Oahuense (not geo-referenced)"))
+ geom_polygon(data=CoordInset, aes(x = Long, y = Lat, group = Type))
+ theme(panel.border = element_rect(fill=NA, colour = "black", size=1), plot.margin = unit(c(0.3, 0.3, -1.7, -0.2), 'lines'), axis.line = element_blank(), axis.text.x = element_text(angle=45, hjust=0.9, vjust=2.2, size=8), axis.ticks.length=unit(-0.15,"cm"), axis.text.y = element_text(size=8, margin = margin(r = -18)))

Long      Lat                           Type

1  155.2000 19.50000             Not geo-referenced
2  155.2000 19.51600             Not geo-referenced
3  155.3433 19.67571             Not geo-referenced
4  155.4000 19.80000             Not geo-referenced
5  155.4483 19.76015             Not geo-referenced
6  155.5000 19.90000             Not geo-referenced
7  155.5000 19.80000             Not geo-referenced
8  155.6000 20.00000             Not geo-referenced
9  155.6000 19.80000             Not geo-referenced

Scale for 'y' is already present. Adding another scale for 'y',
which will replace the existing scale.
Scale for 'x' is already present. Adding another scale for 'x',
which will replace the existing scale.