ncov 2019

2020年03月05日

knitr::opts_chunk$set(
  fig.path = "man/figures/",
  message = FALSE
)

ncov 疫情图，参考ncovr, 具体使用详情见vignette. 暂放于此，后续可并入ncovr

数据来源

数据获取通过DXY-COVID-19-Crawler api 下载，调用get_ncov()即可获取。

安装

if (!require(remotes)) install.packages("remotes")
if (!require(ncovmap)) remotes::install_github("yiluheihei/ncovmap")

library(ncovmap)
library(leafletCN)

下载ncov数据

ncov <- get_ncov2()
ncov

## All COVID 2019 Data
## Updated at 2020-03-05 09:54:02 
## From https://lab.isaaclin.cn/nCoV/api/

提取省市或国家数据

# 中国数据
china <- ncov['china']
china

## China COVID 2019 Data
## Updated at 2020-03-05 04:27:05 
## From https://lab.isaaclin.cn/nCoV/api/

# 省市数据
hubei <- ncov['湖北省']
hubei

## Hubei COVID 2019 Data
## Updated at 2020-03-05 07:47:01 
## From https://lab.isaaclin.cn/nCoV/api/

beijing <- ncov['北京市']
beijing

## Beijing COVID 2019 Data
## Updated at 2020-03-04 23:14:02 
## From https://lab.isaaclin.cn/nCoV/api/

beijing$cities

## NULL

# 世界数据
world <- ncov['world']
world

## World COVID 2019 Data
## Updated at 2020-03-05 02:39:09 
## From https://lab.isaaclin.cn/nCoV/api/

国内总体疫情图

plot_china_map(china, legend_position = "bottomleft")

省份疫情图

湖北省

plot_province_map(
  hubei, 
  "湖北省", 
  bins = c(0, 100, 200, 500, 1000, 10000)
)

北京市

plot_province_map(
  beijing,
  "北京市", 
  bins = c(0, 10, 50, 100)
)

世界整体疫情图

plot_world_map(world, legend_position = "bottomleft")

国外疫情图

韩国疫情图

korea_ncov <- get_foreign_ncov("韩国")
plot_foreign_map(korea_ncov, "korea")

日本疫情图

jp_ncov <- get_foreign_ncov("日本")
plot_foreign_map(jp_ncov, "japan")

伊朗疫情图

iran_ncov <- get_foreign_ncov("伊朗")
plot_foreign_map(iran_ncov, "iran")

意大利疫情图

italy_ncov <- get_foreign_ncov("意大利")
plot_foreign_map(italy_ncov, "italy")

直接画这四个国家的疫情图

foreign_countries <- c("韩国", "伊朗", "日本", "意大利")
names(foreign_countries) <- c("korea", "iran", "japan", "italy")
htmltools::tagList(purrr::imap(
  foreign_countries, 
  ~ get_foreign_ncov(.x) %>% 
    plot_foreign_map(.y)
))