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 in DF is being updated. but sometimes it's too late. Please check if yesterday
# command might have problem.
df3 <- aggregate(confirmed ~ countryName, subset(df,day == yesterday()-2), sum)
df10 <- aggregate(confirmed ~ confirmed, subset(df), sum)
Нашел количество подтвержденных. однако три страны, которые дают наибольшее количество подтверждений, которые я хочу, присутствуют.
и это информация о 3 странах, которые составляют процент от общего числа подтвержденных.
в качестве вывода:
date countryName confirmed total-confirmed percent (%)
2020/05/05 Spain 19800 92108838 0,0158554
2020/05/05 italy 19800 92108838 0,0158554
2020/05/05 iran 19800 92108838 0,0158554
данные не являются примером. не является реальным.
дата необходима здесь, чтобы убедиться, что данные за последний день получены