• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

R语言地图可视化—Baidumap包和REmap包

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

本文介绍Baidumap包和REmap包的安装和使用方法两部分,REmap和Baidumap包的github下载地址:https://github.com/lanxingyue25/RBaidumap

一、安装方式

1、Baidumap包可通过以下方式安装:

library(devtools)
install_github('badbye/baidumap')

 2、REmap包需要在github上下载压缩包,在Rstudio里面通过Tools—install packages—install from 里选择Pckage Archive File(.zip;tar.gz)的方式安装本地压缩包。

二、使用方法

1、Baidumap包:

(1)getbaidumap函数:

用法:getBaiduMap(location, width = 400, height = 400, zoom = 10, scale = 2, color = "color", messaging = TRUE)

参数:
location:包含经度和维度的向量、矩阵,或者是一个字符串表示的地址;经纬度和地址将作为地图的中心点;
width,height:map的宽和高;
zoom:map的缩放比例,值为整数,从3(洲)到21(building),默认值是10;
scale:像素数;
color:"color" or "bw",表示有色或者是黑白;
messaging:取值为TRUE或FALSE,决定是否输出下载数据的信息;

(2)getCoordinate函数:返回地址的经纬度

用法:getCoordinate(address, city = NULL, output = "json", formatted = F)

参数:
address:一个字符串表示的地址;
city:可选项,地址所在的城市
output:json或者xml格式
formatted:F返回原有的json或者xml格式,而T返回的是经纬度的矩阵

(3)getPlace函数:返回所有搜索地址的经纬度、地址、名字

getPlace(place = 'XXX', city = "XXX")

参数:
place:你想要搜索的地方
city:城市

(4)getRoute函数:

一个完整示例代码:

library(ggmap)
library(baidumap)
options(baidumap.key = 'XXX')  (这里的key是你申请的百度API**)
sdmap <-getBaiduMap('山东',color = 'color', zoom = 7,
                    scale = 2,messaging = TRUE)
data <- read.csv("XXX.csv")
ggmap(sdmap) +
  geom_point(data = data[data$是否为重大危险源=='是',],
             aes(x=LNGB,y=LATB,colour=是否为重大危险源),
             size=2)+
  geom_point(data = data[data$是否为重大危险源=='否',],
             aes(x=LNGB,y=LATB,colour=是否为重大危险源),
             size=2)+
  labs(title="XXX",x="经度",y="纬度")+
  theme(plot.title = element_text(hjust = 0.5))+
  scale_colour_manual(values = c('blue','red'))
ggsave("C:/Users/lenovo/Desktop/map.jpg",width = 8, height = 8)   
2、REmap包:(参考链接:https://www.jianshu.com/p/31c9194c95f3

(1)mapNames( ):可提供国家、省份、城市列表

(2)get_city_coord( ):返回某个省份或者城市的经纬度

(3)get_geo_position( ):返回一批城市的经纬度数据

(4)get_theme( ):

用法:get_theme(theme = 'Dark',lineColor = 'Random',backgroundColor = '#1b1b1b',titleColor = '#fff',borderColor = 'rgba(100,149,237,1)',regionColor = '#1b1b1b',labelShow = T,pointShow = F,pointColor = 'gold')

参数:

theme:为总体配色,默认选项有“Dark”、“Bright”、“Sky”、“none”;

lineColor:为线条颜色,默认是随机, 也可自行设置,如’red’;

backgroundColor:为地图外背景颜色;

titleColor:为标题颜色;

borderColor:为地图中地域边缘颜色,不同省份、城市的边缘;

regionColor:为地图显示的颜色;

labelShow:为逻辑参数,是否显示地域名称,默认为T,即显示,只用于remapC函数;

pointShow:为逻辑参数,是否显示地域所在点,默认为F,不显示,只用于remapC函数;

pointColor:为pointShow中点的颜色,只用于remapC函数;

(5)markLineControl( ):remapB和remapC中线条的主题设置,可直接传递给markLineTheme参数

用法:markLineControl(symbol = c(‘none’, ‘arrow’),symbolSize = c(2,2),smooth = T,smoothness = 0.5,effect = T,lineWidth = 1,lineType = 'dotted',color = 'Random')

参数:

symbol:为标记样式,具体指线条两端的标记的形状,两个值分别为起点和终点,经过实际使用symbol参数不可修改;

symbolSize:为线条两端标记大小,对应symbol参数的两个值,实际上第一个值没用,因为开始标记为none;

smooth:为逻辑参数,设置线条是否平滑;

smoothness:为平滑度,smooth参数设置为T时有效,体现线条的弧度,减小到0时为直线;

effect:为逻辑参数,是否显示动态效果;

lineWidth:为线条粗细;

lineType:为线条类型,可选有solid(实线)、dotted(点线)、dashed(虚线);

color:为线条颜色;

注:effect参数在线条太多时,动态效果会失效,这时建议设置为FALSE。在remapB( )函数中通过另外一个参数markLineData也可以设置线条颜色,优先级高于color参数。

(6)markPointControl( ):remapB和remapC中点的主题设置,可直接传递给markPointTheme参数

用法:markPointControl( symbol = ’emptyCircle’,symbolSize = “Random”,effect = T,effectType = ‘scale’,color = “Random”)

参数:

symbol:为点样式,可选项none、circle、rectangle、triangle、diamond、emptyCirle、emptyRectangle、emptyTriangle、emptyDiamond、heart、droplet、pin、arrow、star

symbolSize:为点大小

effect:为逻辑参数,是否显示动态效果

effectType:为动态效果样式,可选scale(放大)和bounce(跳动)

color:为点颜色

(7)remap():绘制流向图

remap(mapdata, title = XXX",subtitle ='XXX',theme = get_theme('Dark'))

参数:

mapdata:为数据框格式的原始数据,包含初始点和终点两列;

title:为主标题;

subtitle:为副标题;

一个完整示例代码:

library(devtools)
library(REmap)
data <- read.csv("XXX.csv")
geodata = data.frame(lon = data$LNGB,
                     lat = data$LATB,
                     city = data$Address)
remapB(markPointData = data.frame(geodata$city),
       geoData = geodata,
       markPointTheme = markPointControl(effect = F,symbol = "circle",
                                         symbolSize = 5,
                                         color="red"),
       title="XXX")


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap