关于新冠的作图（R语言）

新冠统计

对新冠数据进行爬取，处理数据，并对其作出相应的图。具体代码如下：

#加载各个包
library(sf)
library(ggplot2)
library(dplyr)
library(magrittr)
library(gganimate)
library(lubridate)
library(magick)
library(nCov2019)
library(RColorBrewer)
library(remotes)
#安装疫情数据包
remotes::install_github("GuangchuangYu/nCov2019")
library(nCov2019)
#获取数据包的数据
x=get_nCov2019()
x=load_nCov2019()
#获取描述性统计量，进行数据汇总
data_province=summary(x)
#数据框使用 data.frame() 函数来创建time，NAME，cum_confirm
data_province=data.frame(time=data_province$time,NAME=data_province$province,cum_confirm=data_province$cum_confirm)
#年月日时分秒函数，三个函数是字母y(年)m(月)d(日)的组合
data_province$time=ymd(data_province$time)
#读取省面
province=read_sf("D:/R/rstudy/省面.shp")

#cut(x, break= , right= , label=c(" "))，x为向量vector
#break可以为自定义的分组也可以为大于等于2的数字，如果是数字，则软件会自动均分数值间的距离，如果不想均分，可以自定义分类距离
#right代表区间的左右端开和闭 默认为true，代表左开又闭，当设置成False的时候，为左闭右开
#label为标签向量，代表给每段间距设置一个标签，相当于每个间距给一个名字
#include_lowest是否包含左端点
data_province$cum_confirm=cut(data_province$cum_confirm,breaks = c(0,1,10,50,100