利用R语言画出两地路线图 |
您所在的位置:网站首页 › 手机怎么绘制地图路线图 › 利用R语言画出两地路线图 |
发一篇教大家如何用R语言画路线图的攻略~ ~\(≧▽≦)/~ 题目是这样的:
利用R的地图包,提取武汉地图,并在图上标注一条从华中师范大学北门到黄鹤楼的路线.
首先,读取需要用到的R包~ library(maptools) library(sp) library(ggplot2) library(mapproj)
再然后,在国家基础地理信息中心上下载地级市的shp地图包~这个网站我当时试了好多次还是登不上去,又从网上找了一个数据包~ 当然你找百度地图,谷歌地图神马的,只要能拿到市级地图都行~R语言自带的包没有精确到市级。。。 http://pan.baidu.com/s/1hs03gUg(如果分享过期了可以上网搜索BOUNT_poly.shp) 读入地级市包里的这个文件 mydat = readShapePoly("d:/rstudy/BOUNT_poly.shp")
按照99年制定的名字标准找到武汉市 tmp = iconv(mydat$NAME99, from = "GBK") grep("武汉", tmp, value = TRUE)
显示武汉市对应ADCODE99编码 mydat$ADCODE99[grep("武汉", tmp)]
接下来就是把地图数据从地图包里找出来啦~稍微改一下名称~ Wuhan = mydat[substr(as.character(mydat$ADCODE99), 1, 4) == "4201",] mysh = fortify(Wuhan) mysh = transform(mysh, id = iconv(id, from = 'GBK'), group = iconv(group, from = 'GBK')) head(mysh, n = 2) names(mysh)[1:2] = c("x","y")
为了好看,要涂上漂亮哒颜色~不过作为一个重度选择困难症,还是用随机数涂颜色啦~ (其实是因为网上的教程里有现成的随机数涂色╮(╯▽╰)╭) 先弄一串随机数把~ myepidat = data.frame(id = unique(sort(mysh$id))) myepidat$rand = runif(length(myepidat$id)) myepidat接下来查出华师和黄鹤楼的大致经纬度,我在百度地图找的,四舍五入一下~ 然后准备好名字标签。 多个多维向量做图处理的时候记得转化成数据框哟~ E |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |