R语言绘制疫情地图

窝在家里看代码，偶然间看到Y叔公众号推送的 用R画疫情地图波 ，想重复一下，结果其中一个Y叔自己写的包装不上（chinamap），尝试一下用别的方法实现R语言绘制疫情地图。

采用的方法基于R笔记1：ggplot绘制商务图表--中国分省热力地图_刘万祥ExcelPro_新浪博客

数据来源：

1. 中国各省份、地区的地理信息：可以从 https://pan.baidu.com/share/link?shareid=54856&uk=352462598 链接下载，其中bou2_4p.dbf，bou2_4p.shx和bou2_4p.shp三个文件是我们所需要的，将它们解压在同一个目录下。
2. 各行政区新冠病毒确诊患者数，用的是Y叔的办法：

url = 'https://view.inews.qq.com/g2/getOnsInfo?name=disease_h5&callback=1580373566110'
x = readLines(url, encoding="UTF-8")
x = sub("^\\d+", "", x)
x = sub("^\\(", "", x)
x = sub("\\)$", "", x)
y = fromJSON(x)
d = fromJSON(y$data)
write.csv(file='Heatmap_data.csv',d$areaTree[1,2][[1]][,c(1,3)])