Hello,
大家好！欢迎收听 每周五分钟 与您分享 一点儿数据分析 的那些事。
作为背包客来讲，青年旅舍当然是大部分学生群体的首选了。而且国际青年旅舍也逐步火热。本周，我们将讲解如何利用 baidumap 包 和 leaflet 包以交互的形式展现上海市青年旅舍的信息。
1. 获取上海市青旅的信息：
library(baidumap) # 加载 baidumap 包
ql<-getPlace(place='青年旅舍', city='上海')
head(ql)
dim(ql) # 共搜索出172家青旅
x<-ql$lon; y<-ql$lat # 获取青旅的横纵坐标
2. 绘制交互的地图：
library(maptools) # 加载 maptools 包
shape<-readShapePoly('~/县级行政界线/BOUNT_poly.shp')
center<-getCoordinate('上海', formatted=T)
a<-as.numeric(center[1])
b<-as.numeric(center[2])
popup <- paste0("<strong><font color='red'> Name: </font> </strong>", ql$name, "<br>", "<strong><font color='red'>Telphone: </font></strong>", ql$telephone)
library(leaflet) # 加载 leaflet 包
leaflet(shape) %>% addTiles() %>% setView(a,b,zoom = 9) %>% addMarkers(lng=~x,lat=~y,popup=~popup)
3. 编写函数，拓展查找内容:
ql_finder<- function(city='上海', place='青年旅舍', zoom = 9){
lapply(c('baidumap','maptools','leaflet'), function(x) library(x,character.only = TRUE))
shape<-readShapePoly('~/县级行政界线/BOUNT_poly.shp')
ql<-getPlace(place = place, city = city)
lon<-ql$lon; lat<-ql$lat
center<-getCoordinate(city,formatted=T)
a<-as.numeric(center[1])
b<-as.numeric(center[2])
popup <- paste0("<strong><font color='red'> Name: </font> </strong>", ql$name, "<br>", "<strong><font color='red'>Telphone: </font></strong>", ql$telephone)
leaflet(shape) %>% addTiles() %>% setView(a,b,zoom = zoom) %>%
addMarkers(lng=~lon,lat=~lat,popup=~popup)
}
ql_finder(city='上海', place='小杨生煎', zoom = 10)
4. 县级边界数据：
链接: https://pan.baidu.com/s/1kU7uIsn 密码: cjq9
Okay, that‘s all. 感谢您的收听，咱们下期再见，再见，再见～
如有兴趣，可以关注一下微信公众号：
