疫情地图全搞定，小白都会画！

得益于我自己写的R包，我们可以访问到最新的数据和历史数据，那么画起图来，就非常容易，包括地图，地图的功能已经在version = 0.0.4中加入，所以你可能需要更新一下，安装方法在之前已经讲过，请自取：

世界地图

require(nCov2019)
x = get_nCov2019()
plot(x)

三句话，加载包，拿最新在线数据，画图，完。所以说小白都会，不会算我输。

但是画起来啊，中国太可怕了，主要是在湖北省。能不能按省来画中国呢？

答案当然可以，首先你需要装chinamap包，来拿到中国地图：

remotes::install_github("GuangchuangYu/chinamap")

有了这个包之后，加载包，拿中国地图，然后画图，给多个中国地图，就行：

require(chinamap)
cn = get_map_china()

plot(x, chinamap=cn)

中国地图

要画中国地图，代码和前面一样，只需要指定region="china"即可。

plot(x, region='china', chinamap=cn)

另外，假设你想要用离散型的颜色填充，只需要continuous_scale=FALSE即可，还有你可能看烦了红色，换个色吧，通过palette指定：

plot(x, region='china', chinamap=cn,
    continuous_scale=FALSE,
    palette='Blues')

按省市来画

这个你需要有市界的地图，我自己有，你呢，自己网上找。一句读地图，一句画地图，只需要指定省份就行。

m = sf::st_read("../Downloads/市界.shp")
plot(x, region='湖北', chinamap=m)

画个河南：

plot(x, region='河南', chinamap=m)

还能按地区来画，比如说把广东和福建画出来，用个基佬紫来填充颜色：

plot(x, region=c('福建', '广东'),
  chinamap=m, palette="Purples")

画历史数据

刚才演示的是最新数据，能不能画历史数据呢？答案是肯定的。

一条语句，加载历史数据，然后还是plot，用法一模一样，只多了一个参数，那就是指定日期。

y <- load_nCov2019()
plot(y, region='china',
     chinamap=cn, date='2020-02-01')

有历史数据嘛，我们可以一天画一张图，看看病毒的传播，确诊人数的增长历程：

library(magick)

d <- c(paste0("2020-01-", 20:31), paste0("2020-02-0", 1:2))
img <- image_graph(600, 450, res = 96)
out <- lapply(d, function(date){
  p <- plot(y, region='china', chinamap=cn, date=date,
            label=FALSE, continuous_scale=FALSE)
  print(p)
})
dev.off()

animation <- image_animate(img, fps = 2)
print(animation)

往期精彩