ggplot2：画世界地图和中国地图 合并数据 增添信息 标记

世界地图：

library(maps)
data("world.cities")
bigcities <- subset(world.cities, pop > 5000000)
qplot(long, lat, data = bigcities,colour=country.etc,size=pop)+ borders("world", size= 0.5)

中国地图：

library(mapdata)

ch_cities <- subset(world.cities, country.etc=="China")
ggplot(ch_cities, aes(long, lat)) + geom_point(colour= alpha("red",0.5))+ borders("china")#

合并数据到地图数据：

　　

states <- map_data("state")##将地图数据转为数据框
arrests <- USArrests ##新数据（要与地图数