R語言之數(shù)據(jù)可視化---坐標定位包baidumap

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

一.安裝方式:

可見作者關于安裝的文章

二.使用方法:

  • getbaidumap函數(shù):
    getBaiduMap(location, width = 400, height = 400, zoom = 10, scale = 2, color = "color", messaging = TRUE)

參數(shù):
location:包含經(jīng)度和維度的向量或者是一個矩陣,或者可以是一個字符串表示地址邑贴;經(jīng)緯度和地址將作為地圖的中心點
width散休,height:map的寬和高
zoom:map的縮放比例羔砾,是一個整數(shù)拟赊,從3(洲)到21(building)具壮,默認值是10
scale:像素數(shù)
color:"color" or "bw"之碗,表示有色或者是黑白
messaging:邏輯語句坦刀,決定是否輸出下載數(shù)據(jù)的信息

  • getCoordinate函數(shù):根據(jù)地址得到經(jīng)緯度(比較常用):
    getCoordinate(address, city = NULL, output = "json", formatted = F)
    參數(shù):
    address:地址
    city:可選項虽填,地質(zhì)所在的城市
    output:json或者xml格式
    formatted:F返回原有的json或者xml格式吞彤,而T返回的是經(jīng)緯度的矩陣

例子:

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('同濟科技廣場','常熟理工東南校區(qū)','常熟理工東湖校區(qū)'),formatted = T)

              longtitude    latitude

同濟科技廣場 120.3399328 36.08851204
常熟理工東南校區(qū) 120.8314860 31.66944605
常熟理工東湖校區(qū) 115.9101483 28.69237515

  • getLocation:通過經(jīng)緯度得到地址

location:經(jīng)緯度
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
"河北省保定市淶水縣" "河北省廊坊市三河市黃閩路" "河北省廊坊市安次區(qū)S272(廊崔線)"

  • getPlace函數(shù):返回地圖搜索結果
    getPlace(place = NULL, city = "北京")

參數(shù):
place:你想要搜索的地方
city:城市

返回值:數(shù)據(jù)框dataframe:包含名字我衬、經(jīng)緯度、地址等

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 肯德基(梅李餐廳店) 梅李鎮(zhèn)通江路11號銀河苑1區(qū)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函數(shù):通過搜索得到路線
    getRoute(...)
    參數(shù):
    origin:起點
    destination:終點
    mode:出行方式饰恕,'walk','transit'
    region:起點和終點所在區(qū)域挠羔,若不在同一地區(qū),分別用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:包含經(jīng)緯度

route<-getRoute('常熟理工東南校區(qū)','常熟理工東湖校區(qū)')
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

會返回路線經(jīng)緯度埋嵌,結合其他mappackage可以產(chǎn)生其他效果破加,后續(xù)會繼續(xù)出文展示!1⑧隆7兑ā!了罪!

最后編輯于
?著作權歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末锭环,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子泊藕,更是在濱河造成了極大的恐慌辅辩,老刑警劉巖,帶你破解...
    沈念sama閱讀 217,509評論 6 504
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件娃圆,死亡現(xiàn)場離奇詭異汽久,居然都是意外死亡,警方通過查閱死者的電腦和手機踊餐,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,806評論 3 394
  • 文/潘曉璐 我一進店門景醇,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人吝岭,你說我怎么就攤上這事三痰。” “怎么了窜管?”我有些...
    開封第一講書人閱讀 163,875評論 0 354
  • 文/不壞的土叔 我叫張陵散劫,是天一觀的道長。 經(jīng)常有香客問我幕帆,道長获搏,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,441評論 1 293
  • 正文 為了忘掉前任失乾,我火速辦了婚禮常熙,結果婚禮上纬乍,老公的妹妹穿的比我還像新娘。我一直安慰自己裸卫,他們只是感情好仿贬,可當我...
    茶點故事閱讀 67,488評論 6 392
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著墓贿,像睡著了一般茧泪。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上聋袋,一...
    開封第一講書人閱讀 51,365評論 1 302
  • 那天队伟,我揣著相機與錄音,去河邊找鬼幽勒。 笑死缰泡,一個胖子當著我的面吹牛,可吹牛的內(nèi)容都是我干的代嗤。 我是一名探鬼主播棘钞,決...
    沈念sama閱讀 40,190評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼干毅!你這毒婦竟也來了宜猜?” 一聲冷哼從身側響起,我...
    開封第一講書人閱讀 39,062評論 0 276
  • 序言:老撾萬榮一對情侶失蹤硝逢,失蹤者是張志新(化名)和其女友劉穎姨拥,沒想到半個月后,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體渠鸽,經(jīng)...
    沈念sama閱讀 45,500評論 1 314
  • 正文 獨居荒郊野嶺守林人離奇死亡叫乌,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,706評論 3 335
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了徽缚。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片憨奸。...
    茶點故事閱讀 39,834評論 1 347
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖凿试,靈堂內(nèi)的尸體忽然破棺而出排宰,到底是詐尸還是另有隱情,我是刑警寧澤那婉,帶...
    沈念sama閱讀 35,559評論 5 345
  • 正文 年R本政府宣布板甘,位于F島的核電站,受9級特大地震影響详炬,放射性物質(zhì)發(fā)生泄漏盐类。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,167評論 3 328
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望在跳。 院中可真熱鬧枪萄,春花似錦、人聲如沸硬毕。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,779評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽吐咳。三九已至,卻和暖如春元践,著一層夾襖步出監(jiān)牢的瞬間韭脊,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,912評論 1 269
  • 我被黑心中介騙來泰國打工单旁, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留沪羔,地道東北人。 一個月前我還...
    沈念sama閱讀 47,958評論 2 370
  • 正文 我出身青樓象浑,卻偏偏與公主長得像蔫饰,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子愉豺,可洞房花燭夜當晚...
    茶點故事閱讀 44,779評論 2 354

推薦閱讀更多精彩內(nèi)容