Skip to content

Instantly share code, notes, and snippets.

@longhaivo
Created May 21, 2020 09:53
confirm<-read_csv(url("https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv"))[,-c(3,4)]
recover<-read_csv(url("https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_recovered_global.csv"))[,-c(3,4)]
death<-read_csv(url("https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv"))[,-c(3,4)]
colnames(confirm)[1:2]=colnames(recover)[1:2]=colnames(death)[1:2]=c("region", "country")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment