R数据可视化-动态、交互式地图神器(一)概述与实现

这几天在网上看到一个了不起的R包:Leaflet/LeafletCN,忍不住跟着大神学习、动手实践一番,先看个效果图(<small>交互式界面,可实现拖拽</small>):


下面是一些简单的用法与介绍

一、Leaflet/LeafletCN实例

Leaflet是一个国外动态交互地图,超赞;而LeafletCN适应了“中国国情”,划分更能细到县市级,虽然不一定完全准,但是够用就行啦~

回到前面的效果图,先看如何实现:

【1】载入包,读取网页数据(这里使用网上提供的各城市AQI指数)

library(XML)
library(leafletCN)
# Sorry for 爬了你家网站
table = readHTMLTable("http://www.pm25.in/rank",  encoding = "UTF-8", stringsAsFactors = F)[[1]]

【2】整理数据

# 整理数据并命名
dat = table[ , 2:3]
names(dat) = c("city","AQI")
dat$AQI = as.numeric(dat$AQI)

【3】使用geojsonMap绘制城市的污染情况

# 调用geojsonMap进行绘制
geojsonMap(dat, "city",
           popup =  paste0(dat$city, ":", dat$AQI),
           palette = "Reds", legendTitle = "AQI")

我去,丧心病狂,7行代码搞定 ~

二、函数使用

简单的COPY谁都会,各种函数、参数选择多少也要会一点,下面介绍常用函数

【regionNames函数】

如果传入省份级,会输出该省份下的城市

> regionNames("江苏")
 [1] "盐城市"   "徐州市"   "南通市"   "淮安市"   "苏州市"   "宿迁市"   "连云港市" "扬州市"  
 [9] "南京市"   "泰州市"   "无锡市"   "常州市"   "镇江市" 

若传入市级,则对应输出区县级

> regionNames("无锡")
[1] "北塘区" "滨湖区" "崇安区" "惠山区" "江阴市" "南长区" "锡山区" "宜兴市"
【geojsonmap函数】
dat = data.frame(name = regionNames("china"), value = runif(34))
geojsonMap(dat,"china")

# 可以看到有很多参数,默认颜色是蓝色,地图类型是高德地图,可自己调参
> geojsonMap
function (dat, mapName, namevar = NULL, valuevar = NULL, palette = "Blues", 
    colorMethod = "numeric", na.color = "#808080", popup = NULL, 
    stroke = T, smoothFactor = 1, weight = 1, fillOpacity = 0.7, 
    legendTitle = "Legend", tileType = amap, ...) 

三、其他实例

【1】单点标注:地图+标点

leaflet() %>%amap() %>%addMarkers(lng=121.587687, lat=31.201832,popup="张江老司机")

# %>%:管道操作符,它的主要作用就是把前面的语句(变量)传递给下一个语句,并且作为第一个参数使用

【2】底图地图多样选择

# 使用addProviderTiles("XXX")来调用这些源, 部分源需要注册
卫星地图:
Esri.WorldImagery
带海拔的地图:
OpenTopoMap
黑白地图:
Stamen.Toner
NASA气象地图:
NASAGIBS.ModisTerraChlorophyll
NASA夜景:
NASAGIBS.ViirsEarthAtNight2012

这么炫,简直没朋友啊


待续未完...

推荐阅读更多精彩内容