, geom_polygon. XXXX (data) lat long (x y) . maps, , .
ggplot(subset(df, as.character(variable) == "value"), aes(map_id = id)) +
geom_map(aes(fill = pct), colour = "black", map = ggmap) +
geom_polygon(data=XXXX, aes(x=XXXX, y=XXXX), colour='black', fill=NA) +
expand_limits(x = ggmap$long, y = ggmap$lat) +
scale_fill_gradient(low = "antiquewhite", high = "darkred") +
opts(title = "Title", panel.background = theme_rect(fill = "grey90"))