Introducción

El Covid-19 es un virus que actualmente ha causado un impacto gigante en la vida de los ciudadanos de este planeta, ha paralizado la economía y mantiene una sensación de pánico en la población, nos obliga a quedarnos en nuestras casas para evitar su esparcimiento.

#Enlaces de datos
url_confirmed <-"https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv"
url_deaths <-"https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv"
url_recovered <-"https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_recovered_global.csv"


#Convertir a data frames

df_confirmed <- read.csv(url_confirmed)
df_deaths    <- read.csv(url_deaths)
df_recovered <- read.csv(url_recovered)

Detalles por país:

México

  mx_confirmed <- t(df_confirmed [df_confirmed$Country.Region=="Mexico",])
  mx_deaths    <- t(df_deaths [df_deaths$Country.Region=="Mexico",])
  mx_recovered <- t(df_recovered [df_recovered$Country.Region=="Mexico",])

  cat("Confirmados en Mexico", mx_confirmed[nrow(mx_confirmed)], "\n")
## Confirmados en Mexico 8772
  cat("Muertos en Mexico", mx_deaths[nrow(mx_deaths)], "\n")
## Muertos en Mexico 712
  cat("Recuperados en Mexico", mx_recovered[nrow(mx_recovered)], "\n")
## Recuperados en Mexico 2627

France

  fr_confirmed <- t(df_confirmed [df_confirmed$Country.Region=="France",])
  fr_deaths    <- t(df_deaths [df_deaths$Country.Region=="France",])
  fr_recovered <- t(df_recovered [df_recovered$Country.Region=="France",])

  cat("Confirmados en Francia", fr_confirmed[nrow(fr_confirmed)], "\n")
## Confirmados en Francia     97
  cat("Muertos en Francia", fr_deaths[nrow(fr_deaths)], "\n")
## Muertos en Francia     1
  cat("Recuperados en Francia", fr_recovered[nrow(fr_recovered)], "\n")
## Recuperados en Francia    76

Canada

  ca_confirmed <- t(df_confirmed [df_confirmed$Country.Region=="Canada",])
  ca_deaths    <- t(df_deaths [df_deaths$Country.Region=="Canada",])
  ca_recovered <- t(df_recovered [df_recovered$Country.Region=="Canada",])

  cat("Confirmados en Canada", ca_confirmed[nrow(ca_confirmed)], "\n")
## Confirmados en Canada  3095
  cat("Muertos en Canada", ca_deaths[nrow(ca_deaths)], "\n")
## Muertos en Canada   61
  cat("Recuperados en Canada", ca_recovered[nrow(ca_recovered)], "\n")
## Recuperados en Canada 13188

Argentina

  ar_confirmed <- t(df_confirmed [df_confirmed$Country.Region=="Argentina",])
  ar_deaths    <- t(df_deaths [df_deaths$Country.Region=="Argentina",])
  ar_recovered <- t(df_recovered [df_recovered$Country.Region=="Argentina",])

  cat("Confirmados en Argentina", ar_confirmed[nrow(ar_confirmed)], "\n")
## Confirmados en Argentina 3031
  cat("Muertos en Argentina", ar_deaths[nrow(ar_deaths)], "\n")
## Muertos en Argentina 147
  cat("Recuperados en Argentina", ar_recovered[nrow(ar_recovered)], "\n")
## Recuperados en Argentina 840

Conclusión

Como conclusión, el COVID - 19 es una enfermedad que eventualmente podrá ser tratada en un futuro, como se puede observar en los datos, las tazas de recuperación son mucho mayor que las de muertos, esperemos esto siga igual