这个怎么样:
ggmap(map) + coord_cartesian() + stat_binhex(data=coords,aes(x=longitude,y=latitude))
也许这对于进一步的工作会更好.
ggmap(map, base_layer = ggplot(coords, aes(x=longitude, y=latitude))) + coord_cartesian() + stat_binhex()