R安装包`nCoV`DIY版画疫情地图

最近Y叔叔的nCoV包火了，可谓是包罗万象，操作简单。但因为是打包安装，所以作图也被限制了，如只能显示确诊病例，无法显示疑似病例、死亡病例和治愈人数。因此我在原安装包的基础上做了适当修改，现分享一下过程：

一、安装

由于github国内访问困难，好在Y叔在码云上重新上传了，虽然可以代码安装了

remotes:: install_git("https://gitee.com/GuangchuangYu/nCov2019")

或者

library(devtools)
install_git("https://gitee.com/GuangchuangYu/nCov2019")
#有什么缺失的包，自己补安装
#出现* DONE (nCov2019)表示安装成功

由或者本地安装，地址在这 https://share.weiyun.com/5S71Uxj
解压到本地文件夹，如D盘，安装代码如下

install.packages("D:/nCov2019-master",repos=NULL,type="source")
#出现* DONE (nCov2019)的时候就代表安装成功了

二、加载

library(nCov2019)
#不报错就说明加载成功

三、开工

#先定义下函数
x<-get_nCov2019
#现看一下实时的确切病例数及更新时间
 x
#China (total confirmed cases): 34627
#last update: 2020-02-08 14:21:01 

四、简单到令人发指的作图

• 先来个全世界的，不过数据不是很准，毕竟不是谁都肯共享数据，比如自私的美国

plot(x)

wolrd

• 重点是我们中国，首先需要加载Y叔叔的chinamap包
  先下载 https://share.weiyun.com/5FgrHT0，然后压缩到D盘

install.packages("D:/chinamap-master",repos=NULL,type="source")
#出现* DONE (chinamap)的时候就代表安装成功了
library(chinamap)

定义一下，需要加载sp安装包，没有的安装一下就行，这个CRAN上就有

cn=get_map_china() 

开始画图了，先来个世界角度看中国

plot(x,chinamap=cn)

世界角度看中国

去掉世界，专注中国

plot(x,chinamap=cn)

china

换种离散型填充分类

plot(x,chinamap=cn,continuous_scale=F)

china

红色看的太显眼，前几天纪念李医生都变黑，我们就换个灰色的纪念一下所有一线医护人员吧

plot(x,chinamap=cn,palette="Greys")

china-grey