https://github.com/badbye/baidumap

R interface of baidu map api
https://github.com/badbye/baidumap

baidu-api baidu-map ggmap ggplot r

Last synced: about 14 hours ago
JSON representation

R interface of baidu map api

• Host: GitHub
• URL: https://github.com/badbye/baidumap
• Owner: badbye
• Created: 2014-10-19T04:37:41.000Z (about 10 years ago)
• Default Branch: master
• Last Pushed: 2023-07-17T10:44:34.000Z (over 1 year ago)
• Last Synced: 2023-10-20T18:04:30.633Z (about 1 year ago)
• Topics: baidu-api, baidu-map, ggmap, ggplot, r
• Language: R
• Size: 36.1 KB
• Stars: 99
• Watchers: 12
• Forks: 53
• Open Issues: 14
• Metadata Files:
  • Readme: README.md

Awesome Lists containing this project

README

        
baidumap

========

R interface of baidu map api，just like ggmap but get map from baidu api instead of google or openstreet.

## Installation

```

library(devtools)

install_github('badbye/baidumap')

```

## Usage

Apply an application from [lbsyun.baidu.com](http://lbsyun.baidu.com/apiconsole/key). Then register you key here.

```

library(baidumap)

options(baidumap.key = 'XXX fill your key here XXX')

```

### Function: getLocation

Get location from coordinates data.

```

lon = matrix(c(117.93780, 24.55730, 117.93291, 24.57745, 117.23530, 24.64210, 117.05890, 24.74860), byrow=T, ncol=2)

### json 

location_json = getLocation(lon[1,], output='json')

### xml

location_xml = getLocation(lon[1, ], output='xml')

## formatted

location = getLocation(lon[1, ], formatted = T) 

```

### Function: GetCoordinate

Given a address, return the corresponding coordinates

```

getCoordinate('北京大学') # json

getCoordinate('北京大学', output='xml') # xml

getCoordinate('北京大学', formatted = T) # character

getCoordinate(c('北京大学', '清华大学'), formatted = T) # matrix

```

### Function: getBaiduMap

```

p <- getBaiduMap(c(lon=116.354431, lat=39.942333))

library(ggmap)

ggmap(p)

```

### Function: geoconv

Convert your coordinate data to BaiduMap's coordinate system. Document: http://lbsyun.baidu.com/index.php?title=webapi/guide/changeposition

## Example

```

library(baidumap)

library(ggplot2)

options(baidumap.key='xxx')

ruc_map = getBaiduMap('中国人民大学', zoom=12)

ruc_coordinate = getCoordinate('中国人民大学', formatted = T)

ruc_coordinate = data.frame(t(ruc_coordinate))

ggmap::ggmap(ruc_map) +

  geom_point(aes(x=longtitude, y=latitude), data=ruc_coordinate, col='red', size=5)

```