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

2012-7-21 11:10:53

屋檐滴语发表于 2012-5-5 14:42
library(maptools);
x=readShapePoly('bou2_4p.shp')
plot(x);

请教
在运行代码的时候出现warnings

> provcol=c
> ("red","green","yellow","green","red","green","yellow","blue","red","green","yellow","blue","red","green
错误: 意外的','在"("red","里
> ","yellow","purple","red","green","yellow","purple","red","green","yellow","blue","red","green","yellow",
错误: 意外的符号在"","yellow"里
> "purple","red","green","yellow","purple","blue","green","yellow","purple","green");
错误: 意外的','在""purple","里
> plot(x,col=getColor(x,provname,provcol,"white"),border = "green",xlab="",ylab="")
警告多于50个(用warnings()来显示第一个到第50个)
>
> legend("topleft", legend = provname, bty = "n", col = provcol, pch = 15,ncol = 1, cex = 0.7, lwd = 1)
错误: 类别为'builtin'的对象不可以取子集
> warnings()
警告信息：
1: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
2: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
3: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
4: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
5: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
6: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
7: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
8: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
9: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
10: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
11: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
12: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
13: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
14: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
15: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
16: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
17: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
18: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
19: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
20: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
21: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
22: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
23: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
24: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
25: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
26: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
  所提供的颜色值不是数值，也不是字符串
27: In polypath(x = mcrds[, 1], y = mcrds[, 2], border = border,  ... :
........................................................

是我的软件缺少程序包吗?  还是别的？