请教既有颜色又有省名的中国地图做法

大公子和lutian08兄都太强了，而且承蒙多次赐教、循循善诱、诲人不倦，使者佩服之至、感激之至！两个都是最优答案！但网站只提供选择一个，无奈只好按“先来后到”，对不住lutian08兄了！

lutian08 发表于 2012-5-2 19:14
ArcGis软件要系统地学的，一时别人不好教，我是2006年花好象是7千多学的初级班和中级班，学的内容也不多，最 ...

lu兄太好学了！学习精神令我感动！

耕耘使者 发表于 2012-5-2 21:08
大公子和lutian08兄都太强了，而且承蒙多次赐教、循循善诱、诲人不倦，使者佩服之至、感激之至！两个都是最 ...

我觉得大公子那种方法不可取，你不可能人为地去找每个地图的中心位置。假如中国地图的投影变了，或者是市县地图，你又如何弄呢

好好学习天天向上

lutian08 发表于 2012-5-2 21:28
我觉得大公子那种方法不可取，你不可能人为地去找每个地图的中心位置。假如中国地图的投影变了，或者是市 ...

lu兄的实事求是精神令人敬仰，从方便性来说，的确是lu兄的方法更简洁适用，普适性强。

很有启发

lutian08 发表于 2012-5-2 19:10
很简单的，以前的语句加最后一条就行了：
library(rgdal)
library(classInt)
province<-readOGR("D:/else","province2")
xyz=read.csv("D:/else/xyz.csv")
province$xyz<-xyz[["xyx"]]
pal<-c("green","blue","orange","pink","red")
q5<-classIntervals(province$xyz,n=5,style="quantile")
q5Colours<-findColours(q5,pal)
plot(province,col=q5Colours)
legend("topleft",fill=attr(q5Colours,"palette"),legend=names(attr(q5Colours,"table")),bty="n")
invisible(text(getSpPPolygonsLabptSlots(province), labels=as.character(province$NAME), cex=0.8))

有的省份不恰好在自己区域内，如何解决？谢谢!

dxystata 发表于 2012-5-3 14:00
有的省份不恰好在自己区域内，如何解决？谢谢!

如不在省区域内或者不同省份标签在位置上有冲突，可以center<-getSpPPolygonsLabptSlots(province),然后对center的个别值进行调整。

lutian08 发表于 2012-5-3 20:04
如不在省区域内或者不同省份标签在位置上有冲突，可以center<-getSpPPolygonsLabptSlots(province),然后对center的个别值进行调整。

谢谢！

> center
            [,1]    [,2]
[1,]  1623937.8 5866667
[2,] -1609428.6 5113455
[3,]   621816.0 4559114
[4,]    99683.5 4501151
[5,] -1532343.0 4038557
[6,]  1142136.6 4495014
[7,]   780158.7 4174676
[8,]  1325927.1 4156136
[9,]  1142714.0 3994883
[10,]   688817.5 3846593
[11,]  1458283.6 3753226
[12,]  1063817.8 3509594
[13,]   669038.9 3466124
[14,]  -362171.0 3146659
[15,]   187869.6 3352254
[16,]  1316637.1 3375050
[17,]   397240.5 3021592
[18,]   884985.6 3004214
[19,]   531603.0 2489613
[20,]  1625826.7 5409037
[21,]  1407783.4 5093605
[22,]  1024469.1 4800073
[23,]  -792836.3 4381696
[24,]  -322065.9 4564787
[25,]   341036.7 4279103
[26,]   625619.4 5266223
[27,]   273824.0 3716572
[28,]   917215.4 4806417
[29,]  1544380.6 3988123
[30,]   934732.2 4881659
[31,]  -217239.3 3774578
如何对应省份？