转发：“十行代码看到空气质量指数“——leafletCN包

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

https://cos.name/2017/03/air-quality-visualization/

1.     载入包, 并读取网页的数据

2.     整理数据并进行命名, 包含了获取其中的城市, AQI以及将其转化为数值

3.     使用geojsonMap绘制细分到城市的污染情况

这部分代码运行之后会出现一个以高德地图为底图, 可缩放可点击的地图~

library(XML)library(leafletCN)# 读取网页的表格# Sorry for 爬了你家网站table = readHTMLTable("http://www.pm25.in/rank",                        encoding = "UTF-8", stringsAsFactors = F)[[1]] # 整理数据并命名dat = table[ , 2:3]names(dat) = c("city","AQI")dat$AQI = as.numeric(dat$AQI) # 调用geojsonMap进行绘制geojsonMap(dat, "city",           popup =  paste0(dat$city, ":", dat$AQI),           palette = "Reds", legendTitle = "AQI")

猛击图片查看这个可交互的地图吧！

完整内容看链接的文章，推荐有画地图需要的朋友看看

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：leaflet 质量指数 空气质量 Lea etc R语言 R语言学习 R语言编程

链接：https://cos.name/2017/03/air-quality-visualization/

突然想到转载可能会涉及版权问题，希望版主能过来删帖。
不过觉得leafletCN包很强大，推荐

厉害厉害，领教了