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")

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

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