陈欢欢
getColor=function(mapdata,provname,provcol,othercol)
+ {
+ f=function(x,z)
+ ifelse(x%in%z,which(z==x),0)
+ colIndex=sapply(mapdata@data$NAME,f,provname)
+ col=c(othercol,provcol)[colIndex+1]
+ return(col)
+ }
> provname=("武汉市")
> provcol=("blue")
> plot(x,col=getColor(x,provname,provcol,"white"))
错误于colIndex + 1 : 二进列运算符中有非数值参数
> provname=c("北京市","天津市","上海市","重庆市");
> provcol=c("red","green","yellow","purple");
> plot(x,fg=getColor(x,provname,provcol,"white"));
错误于colIndex + 1 : 二进列运算符中有非数值参数
>
老师。这个错误是为什么呢？求解答。
等待您的回复。
joey0214
[未知用户] 同问
可以用正则表达式吗？？
joey0214
[未知用户] 这个地图是用省边界绘制的，武汉市应该画不出来，网上有市边界的数据包。
plot(x,fg=getColor(x,provname,provcol,”white”));
应该是plot(x,col=getColor(x,provname,provcol,”white”))吧，fg改为col试试～
yadandan
这个中国地图能用ggplot2画吗？貌似x的对象类型很难转化成数据框
yadandan
[未知用户] 终于搞明白了，用fortify函数可以转化成数据框
figo-quad
非常感谢这个共享。另外请教一个问题，如果我需要对省份除了填充颜色外，还要填充斜线（有些地方只能打印黑白色，颜色没法区分），那么要怎样做呢，期待您的回复。
wkg163
x=readShapePoly("bou2_4p.shp")
错误: 没有"readShapePoly"这个函数
求解答
wkg163
x=readShapePoly("bou2_4p.shp")
错误: 没有"readShapePoly"这个函数
耰紫
x = readShapePloy('bou2_4p.shp')
错误: 没有"readShapePloy"这个函数
怎么解决呢？
Ihavenothing
[未知用户] 函数名打错了，readShapePoly。
Ihavenothing
这段代码只适用于当时的那个数据……你要不看下你的x@data$NAME_2是什么？当然也可能你的数据把城市名存储在了其他的地方。
田蕊
Hi Yixuan,
我按照您的介绍输入，可是显示：
package ‘maptools’ successfully unpacked and MD5 sums checked
> library(maptools)
Error: package ‘sp’ required by ‘maptools’ could not be found
> plot(x,fg=gray(924:0/924));
Error in plot(x, fg = gray(924:0/924)) : object 'x' not found
试着重新从CRAN下载了maptools package，但是仍然没有“sp”。怎么解决呢？
田蕊
在划分重庆市和四川省的时候也是找不到“sp”：
> utils:::menuInstallLocal()
package ‘maptools’ successfully unpacked and MD5 sums checked
> library(maptools);
Error: package ‘sp’ required by ‘maptools’ could not be found
> x=read.shapePoly('bou2_4p.shp');
Error: could not find function "read.shapePoly"
> plot(x);
Error in plot(x) : object 'x' not found
是不是maptools package又有变化？求助^^~
qingtian3721-523741933
老师你好，这个数据画出来是一些破碎的线条，这是怎么回事啊
nicolas-zhanhuowangchao
levels(china.map$NAME) <- iconv(levels(china.map$NAME),"gb2312","utf-8")转换编码
www.zhouleyu.com
导入GIS数据后，发现省名在R里显示是乱码，请问应该如何解决？
LiPH
还是有些Bug，待整理
provname=c("北京市","天津市","上海市","重庆市");
> provcol=c("red","green","yellow","purple");
> plot(x,fg=getColor(x,provname,provcol,"white"));
错误于plot.window(xlim = xlim, ylim = ylim, asp = asp, ...) :
图形参数"fg"的长度不对
Jackjie
“首先，从这里下载中国地图的GIS数据，这是一个压缩包，完全解压后包含三个文件（bou2_4p.dbf、bou2_4p.shp和bou2_4p.shx），将这三个文件解压到同一个目录下，并在R中设好相应的工作空间，”我想问怎么算是在R中设好相应的工作空间啊？我在运行的时候出现“Error in getinfo.shape(filen) : Error opening SHP file”，是不是我把这三个文件解压的位置不对啊？谢谢
xuduo
[未知用户] 你好，请问你这个问题解决了吗
laction
为什么我做出来的图没有XY轴？
