各位坛友、达人：
大家好！我是参加咱们举办的春季班了解R语言的。直奔主题，我的问题是：模仿这个网站的内容，
http://site.douban.com/182577/widget/notes/10568279/note/257898418/ 画出了相应的地图，但是地图的省会名称及相应的例数不知道怎么显示出来？
library(maptools)<br />
china_map<-readShapePoly("bou2_4p.shp")<br />
x<-china_map@data<br />
xs<-data.frame(x,id=seq(0:924)-1)</p>
<p>library(ggplot2)<br />
china_map1<-fortify(china_map) #转化为数据框<br />
library(plyr)<br />
china_mapdata<-join(china_map1, xs, type = "full") #合并两个数据框<br />
NAME<-c("北京市","天津市","河北省","山西省","内蒙古自治区","辽宁省","吉林省",<br />
"黑龙江省","上海市","江苏省","浙江省","安徽省","福建省", "江西省","山东省","河南省",<br />
"湖北省", "湖南省","广东省", "广西壮族自治区","海南省", "重庆市","四川省", "贵州省",<br />
"云南省","西藏自治区","陕西省","甘肃省","青海省","宁夏回族自治区","新疆维吾尔自治区",<br />
"台湾省","香港特别行政区")</p>
<p>pop<-c(7355291,3963604,20813492,10654162,8470472,15334912,9162183,13192935,8893483,25635291,20060115,19322432,11971873,11847841,30794664,26404973,<br />
17253385,19029894,32222752,13467663,2451819,10272559,26383458,10745630,<br />
12695396,689521,11084516,7113833,1586635,1945064,6902850,23193638,7026400)</p>
<p>pop<-data.frame(NAME,pop)<br />
china_pop<-join(china_mapdata, pop, type = "full")</p>
<p>ggplot(china_pop, aes(x = long, y = lat, group = group,fill=pop))+<br />
geom_polygon( )+<br />
geom_path(colour = "grey40")<br />
这里用的地图信息貌似是益辉博士的，但不知道哪里能有澳门的数据。</p>
或者大家推荐一个可以满足我画地图，1：显示省名，2：显示相应样本数的3：不同颜色的可视化。
也可以。我在研究研究，实在不会了，第一次发贴，发贴不对的地方，多指正。谢谢
