[未知用户] 应该是被删了,但可以从地图信息中提取,你试一下下面的代码,函数会返回一个列表,其中每一个元素是一个矩阵,第一列是多边形横坐标,第二列是多边形纵坐标。
myMap2poly=function(mapdata)
{
lapply(x@polygons,function(x) x@Polygons[[1]]@coords);
}
mapPolygon=myMap2poly(x);
hlj.x=mapPolygon[[1]][,1];
hlj.y=mapPolygon[[1]][,2];
plot(1,xlim=range(hlj.x),ylim=range(hlj.y),type="n");
polygon(hlj.x,hlj.y);