在活动期间在数据集中工作

df <- read.csv ('https://raw.githubusercontent.com/ulklc/covid19- 
timeseries/master/countryReport/raw/rawReport.csv',
            stringsAsFactors = FALSE)

yesterday <- function() Sys.Date() - 1L
yesterday()

# [1] "if it doesn't work yesterday()-1  do it"
# data set has not been updated for a few days.

活动日;

已恢复

死亡

已确认

查找报告国家/地区(注意:25.4.2020数据将用于活动日,例如25.4.2020)

作为输出;

day countryName death

2020/05/09 United State 7800

day countryName recovered

2020/05/09 Spain 14500

day countryName confirmed

2020/05/09 İran 3654

数据就是例子。不是真实的。

评论