问从数据集中获取数据

EN

## call the dplyr library
library(dplyr)
## read in your data to R
df <- read.csv ('https://raw.githubusercontent.com/ulklc/covid19-timeseries/master/countryReport/raw/rawReport.csv', stringsAsFactors = FALSE)
## set the date you wish to query max records for
set.date <- "2020-06-01"
## copy the data to preserve the original
df1 <- df 
## filter the records to only those that match the specified date
df1 <- filter(df1, as.Date(date, "%Y/%m/%d") == as.Date(set.date))
## determine which country had the most confirmed on the specified day
max.confirmed <- df1[which.max(df1$confirmed),]
## format the record to identify it as the record with most confirmed
max.confirmed$confirmed <- paste0("**",max.confirmed$confirmed,"**")
## determine which country had the most deaths on the specified day
max.deaths <- df1[which.max(df1$death),]
## format the record to identify it as the record with most deaths
max.deaths$death <- paste0("**",max.deaths$death,"**")
## determine which country had the most recovered on the specified day
max.recovered <- df1[which.max(df1$recovered),]
## format the record to identify it as the record with most recovered
max.recovered$recovered <- paste0("**",max.recovered$recovered,"**")
## create the reocrds data frame to contain your max records
records <- rbind(max.confirmed, max.deaths, max.recovered)

## call the dplyr library
library(dplyr)
## read the data into R
df <- read.csv ('https://raw.githubusercontent.com/ulklc/covid19-timeseries/master/countryReport/raw/rawReport.csv', stringsAsFactors = FALSE)
## determine the max date contained within the data
max.date <- df[which.max(as.Date(df$day)),"day"]
## copy the data to preserve original
df1 <- df 
## filter the data to only entries from the max day
df1 <- filter(df1, as.Date(date, "%Y/%m/%d") == as.Date(max.date))
## determine the entry with the most deaths
max.deaths <- df1[which.max(df1$death),]
## format the number of deaths as given in the example
max.deaths$death <- paste0("**",max.deaths$death,"**")
## determine the entry with the most recovered
max.recovered <- df1[which.max(df1$recovered),]
## format the number recovered to match the format of the example
max.recovered$recovered <- paste0("**",max.recovered$recovered,"**")
## create a data frame containing our max death and max recovered entries
max.records <- rbind(max.deaths, max.recovered)
## attach a column with the max date which corresponds to the date of the entries selected
max.records$date <- max.date
## organize the data as shown in the example
max.records <- select(max.records, c("day","countryName","death","recovered"))