1、首先，加载好需要用到的程序包。world.cities地图数据包含name城市名称，country.etc国家,pop人口，lat经度,long纬度,captial首都或省会。
2、利用数据world.cities直接绘制世界地图。#世界地图散点图qplot(long, lat, data = world.cities ) + borders("world", size = 0.5)
3、us.cities数据可以绘制美国地图。#us地图data(us.cities);head(us.cities)qplot(long, lat, data = us.cities) + borders("state", size = 0.5)
4、从world.cities中选出中国地图的数据，并绘制散点图。#国家选择china<- subset(world.cities, country.etc == "china")#中国地图ggplotchina, aes(long, lat) +geom_pointcolour = alpha("black", 1)
5、为散点图添加城市名称。#添加城市名称ggplotchina, aes(long, lat) +geom_textaes(label = name), data =china,size =3, angle = 0
6、上面的图只能看出中国地图的轮廓，没有边界。要用borders函数添加边界。同时对图形进行一些优化处理。
