R软件绘制中国地图问题

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请高手指教，以下代码都可以正常执行，为何生成的地图是下图白色地图，而不是彩色的中国地图？

install.packages("rgeos")

install.packages("mapdata")

library(rgeos)

library(sp)

library(maptools)

library(rgdal)

library(maps)

x<- readOGR ('d:/R/data/bou2_4p.shp')

getColor=function(mapdata,provname,provcol,othercol)

{

       f=function(x,y) ifelse(x %in% y,which(y==x),0);

       colIndex=sapply(mapdata@data$NAME,f,provname);

       col=c(othercol,provcol)[colIndex+1];

       return(col);

}

provname=c("北京市","天津市","河北省","山西省","内蒙古自治区",

                   "辽宁省","吉林省","黑龙江省","上海市","江苏省",

                   "浙江省","安徽省","福建省","江西省","山东省",

                   "河南省","湖北省","湖南省","广东省",

                   "广西壮族自治区","海南省","重庆市","四川省","贵州省",

                   "云南省","西藏自治区","陕西省","甘肃省","青海省",

                   "宁夏回族自治区","新疆维吾尔自治区","台湾省",

                   "香港特别行政区");

pop=c(1633,1115,6943,3393,2405,4298,2730,3824,1858,7625,

                   5060,6118,3581,4368,9367,9360,5699,6355,9449,

                   4768,845,2816,8127,3762,4514,284,3748,2617,

                   552,610,2095,200,693);

provcol=rgb(red=1-pop/max(pop)/2,green=1-pop/max(pop)/2,blue=0);

plot(x,col=getColor(x,provname,provcol,"white"),xlab="",ylab="");

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

crazygod 发表于 2017-7-17 23:42
请高手指教，以下代码都可以正常执行，为何生成的地图是下图白色地图，而不是彩色的中国地图？
install.pa ...

我有可编辑ppt格式的地图 你要不 有偿提供

你的代码，我运行了下没有问题。

bou2_4p.shp文件在哪里

你的代码没有问题，我运行的结果，地图是有颜色的，黄色深浅不一