R语言之数据可视化---坐标定位包baidumap

包的github下载地址:https://github.com/badbye/baidumap

一.安装方式:

可见作者关于安装的文章

二.使用方法:

  • 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:逻辑语句,决定是否输出下载数据的信息

  • getCoordinate函数:根据地址得到经纬度(比较常用):
    getCoordinate(address, city = NULL, output = "json", formatted = F)
    参数:
    address:地址
    city:可选项,地质所在的城市
    output:json或者xml格式
    formatted:F返回原有的json或者xml格式,而T返回的是经纬度的矩阵

例子:

getCoordinate('同济科技广场',output = 'xml')#xml

同济科技广场
"<?xml version="1.0" encoding="utf-8"?>\n<GeocoderSearchResponse>\n\t<status>0</status>\n\t<result>\n\t\t<location>\n\t\t\t<lng>120.339932776</lng>\n\t\t\t<lat>36.0885120359</lat>\n\t\t</location>\n\t\t<precise>1</precise>\n\t\t<confidence>80</confidence>\n\t\t<level>UNKNOWN</level>\n\t</result>\n</GeocoderSearchResponse>\n\n"

getCoordinate('同济科技广场',output = 'json')

同济科技广场
"{"status":0,"result":{"location":{"lng":120.33993277617836,"lat":36.08851203594274},"precise":1,"confidence":80,"level":"UNKNOWN"}}"

getCoordinate(c('同济科技广场','常熟理工东南校区','常熟理工东湖校区'),formatted = T)

              longtitude    latitude

同济科技广场 120.3399328 36.08851204
常熟理工东南校区 120.8314860 31.66944605
常熟理工东湖校区 115.9101483 28.69237515

  • getLocation:通过经纬度得到地址

location:经纬度
output:json或者xml格式
formatted:是否返回一个较好的结果
pois:是否返回这个位置周围的PIO

loc =
matrix(c(115.183148,39.629221,117.151659,39.955654,116.746918,39.358383), byrow=T, ncol=2)

location = getLocation(loc, formatted = T)
location
lon=115.183148;lat=39.629221 lon=117.151659;lat=39.955654 lon=116.746918;lat=39.358383
"河北省保定市涞水县" "河北省廊坊市三河市黄闽路" "河北省廊坊市安次区S272(廊崔线)"

  • getPlace函数:返回地图搜索结果
    getPlace(place = NULL, city = "北京")

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

返回值:数据框dataframe:包含名字、经纬度、地址等

js_college<-getPlace('餐厅','常熟')
Get 400 records, 20 page.
Getting 0 th page
Getting 1 th page

Getting  2 th page 
Getting  3 th page 
Getting  4 th page 
Getting  5 th page 
Getting  6 th page 
Getting  7 th page 
Getting  8 th page 
Getting  9 th page 
Getting  10 th page 
Getting  11 th page 
Getting  12 th page 
Getting  13 th page 
Getting  14 th page 
Getting  15 th page 
Getting  16 th page 
Getting  17 th page 
Getting  18 th page 
Getting  19 th page 
Getting  20 th page 

Done!

head(js_college)
name address lat lon
1 渡口饭店(1号店) 江苏省苏州市常熟市兴港路 31.725805 121.055062
2 王四酒家 虞山北路358号(近常熟国际饭店) 31.675453 120.735216
3 肯德基(梅李餐厅店) 梅李镇通江路11号银河苑1区5幢123-124号一二层 31.714455 120.880523
4 幸福小灶饭店 近郊珠江路99号(王梓楼足浴旁) 31.668996 120.773694
5 金海华常熟总店 苏州近郊常熟市方塔街83号近苏苑街近苏宁电器 31.649494 120.747700
6 大方圆酒家(新颜东路店) 苏州近郊常熟市新颜东路58号 31.649959 120.778824
telephone
1 (0512)52646608,13706239111
2 (0512)52849999,(0512)52849777
3 4008828823
4 (0512)52032866
5 (0512)52788888,(0512)5270 2333
6 (0512)52999997

  • getRoute函数:通过搜索得到路线
    getRoute(...)
    参数:
    origin:起点
    destination:终点
    mode:出行方式,'walk','transit'
    region:起点和终点所在区域,若不在同一地区,分别用origin_region和destination_region
    tactics:10(不走高速), 11(默认, 最短时间), 12(最短路径).
    coord_type:'bd09ll'(default), 'gcj02'(which Google map and Soso map are using), 'wgs84' for GPS devices.

返回值:dataframe:包含经纬度

route<-getRoute('常熟理工东南校区','常熟理工东湖校区')
head(route)
lon lat
1 120.7844034 31.59385505
2 120.7846135 31.59396463
3 120.7846635 31.59412457
4 120.7846635 31.59412457
5 120.7833428 31.59547797
6 120.7832628 31.59557824

会返回路线经纬度,结合其他mappackage可以产生其他效果,后续会继续出文展示!!!!!

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 212,816评论 6 492
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 90,729评论 3 385
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 158,300评论 0 348
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 56,780评论 1 285
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 65,890评论 6 385
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 50,084评论 1 291
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 39,151评论 3 410
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 37,912评论 0 268
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 44,355评论 1 303
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 36,666评论 2 327
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 38,809评论 1 341
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 34,504评论 4 334
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,150评论 3 317
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 30,882评论 0 21
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,121评论 1 267
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 46,628评论 2 362
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 43,724评论 2 351

推荐阅读更多精彩内容