新冠统计
对新冠数据进行爬取,处理数据,并对其作出相应的图。具体代码如下:
#加载各个包
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