R语言画中国地图(不含南沙群岛)

from http://blog.csdn.net/belldeep/article/details/40019803

from  http://www.klshu.com/1323.html

   china_map.R 代码如下:

library(maps)  
library(mapdata)  
dat <- read.csv("china.csv", header = T, sep = ",", na.strings = "")  
par(mar = rep(0, 4))  #设置图形外边距为0

#载入地图
map("china", col = "pink", ylim = c(18, 54), panel.first = grid())  

#在地图上描点
points(dat$jd, dat$wd, pch = 20, col = rgb(0, 0, 0, 0.5))  

#根据经纬度添加各省、直辖市、特别行政区的省会城市
text(dat$jd, dat$wd, dat[, 1], cex = 0.8, col = rgb(0, 0, 0, 0.7), 
     pos = c(2, 4, 4, 2, 3, 4, 2, 3, 4, 2, 4, 2, 2, 4, 3, 2, 1, 2, 3, 1,
             2, 1, 2, 3, 1, 4, 4, 3, 1, 2, 2, 4, 4, 1))

    china.csv的数据:

city,jd,wd
北京,116.4666667,39.9
上海,121.4833333,31.23333333
天津,117.1833333,39.15
重庆,106.5333333,29.53333333
哈尔滨,126.6833333,45.75
长春,125.3166667,43.86666667
沈阳,123.4,41.83333333
呼和浩特,111.8,40.81666667
石家庄,114.4666667,38.03333333
太原,112.5666667,37.86666667
济南,117,36.63333333
郑州,113.7,34.8
西安,108.9,34.26666667
兰州,103.8166667,36.05
银川,106.2666667,38.33333333
西宁,101.75,36.63333333
乌鲁木齐,87.6,43.8
合肥,117.3,31.85
南京,118.8333333,32.03333333
杭州,120.15,30.23333333
长沙,113,28.18333333
南昌,115.8666667,28.68333333
武汉,114.35,30.61666667
成都,104.0833333,30.65
贵阳,106.7,26.58333333
福州,119.3,26.08333333
台北,121.5166667,25.05
广州,113.25,23.13333333
海口,110.3333333,20.03333333
南宁,108.3333333,22.8
昆明,102.6833333,25
拉萨,91.16666667,29.66666667
香港,114.1666667,22.3
澳门,113.5,22.2

    运行结果

   原始中国地图(不含南沙群岛):

   添加省会城市的中国地图(不含南沙群岛):

   运行本文中的实例，需要安装R库:maps和mapdata。