Analisis Coronavirus Abril 2020

Ruben Cardoza ID: 203885

library(readr)
url_dec <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv"
url_con <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv"
url_recov <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_recovered_global.csv"

#datos conf,desc,recov
datos_conf <- read.csv(url_con)
datos_dec <- read.csv(url_des)
datos_recov <- read.csv(url_recov)

#EDA
class(datos_conf)
dim(datos_conf)
head(datos_conf)
names(datos_conf)


#extraccion de datos por pais
#mexico
conf_mex <- t(datos_conf[datos_conf$Country.Region=="Mexico",])
dec_mexico <- t(datos_dec[datos_dec$Country.Region=="Mexico",])
rec_mexico <- t(datos_recov[datos_recov$Country.Region=="Mexico",])
##uganda
conf_ugan <- t(datos_conf[datos_conf$Country.Region=="Uganda",])
dec_ugan <- t(datos_dec[datos_dec$Country.Region=="Uganda",])
rec_ugan <- t(datos_recov[datos_recov$Country.Region=="Uganda",])
#Italy
conf_ital <- t(datos_conf[datos_conf$Country.Region=="Italy",])
dec_italy <- t(datos_dec[datos_dec$Country.Region=="Italy",])
rec_ital <- t(datos_recov[datos_recov$Country.Region=="Italy",])
#Venezuela
conf_Venez <- t(datos_conf[datos_conf$Country.Region=="Venezuela",])
dec_Venez <- t(datos_dec[datos_dec$Country.Region=="Venezuela",])
rec_Venez <- t(datos_recov[datos_recov$Country.Region=="Venezuela",])
#Spain
conf_Spain <- t(datos_conf[datos_conf$Country.Region=="Spain",])
dec_Spain <- t(datos_dec[datos_dec$Country.Region=="Spain",])
rec_Spain <- t(datos_recov[datos_recov$Country.Region=="Spain",])

Numeros de casos confirmados, decesos y recuperados por covid en los paises Mexico, Uganda, España, Venezuela e Italia.

cat("Confirmados en Mexico:",conf_mex[nrow(conf_mex)],"\n")

Confirmados en Mexico: 8261 

cat("Decesos en Mexico:",dec_mexico[nrow(dec_mexico)],"\n")

Decesos en Mexico: 686 

cat("Recuperados en Mexico:",rec_mexico[nrow(rec_mexico)],"\n")

Recuperados en Mexico: 2627 

#uganda
cat("Confirmados en Uganda:",conf_ugan[nrow(conf_ugan)],"\n")

Confirmados en Uganda: 56 

cat("Decesos en Uganda:",dec_ugan[nrow(dec_ugan)],"\n")

Decesos en Uganda: 0 

cat("Recuperados en Uganda:",rec_ugan[nrow(rec_ugan)],"\n")

Recuperados en Uganda: 38 

#italia
cat("Confirmados en Italia:",conf_ital[nrow(conf_ital)],"\n")

Confirmados en Italia: 181228 

cat("Decesos en Italia:",dec_italy[nrow(dec_italy)],"\n")

Decesos en Italia: 24114 

cat("Recuperados en Italia:",rec_ital[nrow(rec_ital)],"\n")

Recuperados en Italia: 48877 

#Venezuela
cat("Confirmados en Venezuela:",conf_Venez[nrow(conf_Venez)],"\n")

Confirmados en Venezuela: 256 

cat("Decesos en Venezuela:",dec_Venez[nrow(dec_Venez)],"\n")

Decesos en Venezuela: 9 

cat("Recuperados en Venezuela:",rec_Venez[nrow(rec_Venez)],"\n")

Recuperados en Venezuela: 117 

#Spain
cat("Confirmados en España:",conf_Spain[nrow(conf_Spain)],"\n")

Confirmados en España: 200210 

cat("Decesos en España:",dec_Spain[nrow(dec_Spain)],"\n")

Decesos en España: 20852 

cat("Recuperados en España:",rec_Spain[nrow(rec_Spain)],"\n")

Recuperados en España: 80587 

En conclusion, lo que los datos nos dicen es que en los paises con mayor economia y poblacion es donde se han registrado mayores casos confirmados de coronavirus, por otra parte los paises de tercer mundo como lo vienen siendo Mexico, Venezuela y Uganda tienen muy pocos casos registrados.
Segun los datos, Mexico registra una tasa de mortalidad de 12.04% al covid, Italia registra una tasa de 7.5%, Venezuela una de 28.4% y España una tasa de mortalidad de 9.6%.
Lo que nos dice eso, es que los paises de tercer mundo cuentan con una mayor tasa de mortalidad lo cual los vuelve mas vulnerables a el virus debido a que la calidad de atencion medica que se tiene en dichos paises es baja en comparacion a los paises de primer mundo.
Ademas, los paises como Mexico y Venezuela no cuentan con los test de covid suficientes para todas las personas, por lo cual es probable que los datos registrados no sean los que realmente son.