variables en data frames
datos_conf<- read.csv(url_conf)
datos_decesos <- read.csv(url_decesos)
datos_recuperados <- read.csv(url_recuperados)
1 “Estados unidos”
Comienzo con el pais de Estados unidos ya que como sabemos, hoy en dia este pais
se ha convertido en el foco de el virus contando con los siguientes numeros:
datos_conf<- read.csv(url_conf)
datos_decesos <- read.csv(url_decesos)
datos_recuperados <- read.csv(url_recuperados)
## Confirmados
conf_US <- t(datos_conf[datos_conf$Country.Region=="US",])
cat("Casos confirmados en US:", conf_US[nrow(conf_US)], "\n")
## Casos confirmados en US: 784326
## Decesos
dec_US <- t(datos_decesos[datos_decesos$Country.Region=="US",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_US[nrow(dec_US)], "\n")
## Cantidad de fallecidos a causa del covid-19 : 42094
## Recuperados
rec_US <- t(datos_recuperados[datos_recuperados$Country.Region=="US",])
cat("Cantidad de personas recuperadas :", rec_US[nrow(rec_US)], "\n")
## Cantidad de personas recuperadas : 72329
2 “México”
Ya que México un pais con una extensión territorial muy grande, y con un indice de pobreza muy grande lo cual implica que no todo los habitantes puedan permanecer en casa
Sus datos son los siguientes:
Al pensar que México es pais vecino de Estados unidos se esperarian cifrás demasiado elevadas pero por las medidas que se han tomado, los numeros aun no son muy grandes
Confirmados
conf_Mexico <- t(datos_conf[datos_conf$Country.Region=="Mexico",])
cat("Confirmados Mexico", conf_Mexico[nrow(conf_Mexico)], "\n")
## Confirmados Mexico 8261
## Decesos
dec_Mexico <- t(datos_decesos[datos_decesos$Country.Region=="Mexico",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_Mexico[nrow(dec_Mexico)], "\n")
## Cantidad de fallecidos a causa del covid-19 : 686
## Recuperados
rec_Mexico <- t(datos_recuperados[datos_recuperados$Country.Region=="Mexico",])
cat("Cantidad de personas recuperadas :", rec_Mexico[nrow(rec_Mexico)], "\n")
## Cantidad de personas recuperadas : 2627
Pasamos a paises más pequeños a comparación de los dos anteriores para analizar sus numeros
3 “Guatemala”
Guatemala pais vecino de Mexico presentó los siguientes datos:
conf_Guatemala <- t(datos_conf[datos_conf$Country.Region=="Guatemala",])
cat("Confirmados Guatemala", conf_Guatemala[nrow(conf_Guatemala)], "\n")
## Confirmados Guatemala 289
# Decesos
dec_Guatemala <- t(datos_decesos[datos_decesos$Country.Region=="Guatemala",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_Guatemala[nrow(dec_Guatemala)], "\n")
## Cantidad de fallecidos a causa del covid-19 : 7
# Recuperados
rec_Guatemala <- t(datos_recuperados[datos_recuperados$Country.Region=="Guatemala",])
cat("Cantidad de personas recuperadas :", rec_Guatemala[nrow(rec_Guatemala)], "\n")
## Cantidad de personas recuperadas : 21
4 Republica Dominicana
Republica Dominicana un pais donde la desigual es muy evidente, y al ser una pais del caribe, siempre han sufrido en problemas en cuanto a su sistema de salud, con los siguientes datos:
# Confirmados
conf_DominicanRepublic <- t(datos_conf[datos_conf$Country.Region=="Dominican Republic",])
cat("Confirmados Republica dominicana", conf_DominicanRepublic[nrow(conf_DominicanRepublic)], "\n")
## Confirmados Republica dominicana 4964
# Decesos
dec_DominicanRepublic <- t(datos_decesos[datos_decesos$Country.Region=="Dominican Republic",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_DominicanRepublic[nrow(dec_DominicanRepublic)], "\n")
## Cantidad de fallecidos a causa del covid-19 : 235
# Recuperados
rec_DominicanRepublic <- t(datos_recuperados[datos_recuperados$Country.Region=="Dominican Republic",])
cat("Cantidad de personas recuperadas :", rec_DominicanRepublic[nrow(rec_DominicanRepublic)], "\n")
## Cantidad de personas recuperadas : 416
5 “Cuba”
El Cuba muestra los siguientes datos:
# confirmados
conf_Cuba <- t(datos_conf[datos_conf$Country.Region=="Cuba",])
cat("Confirmados Cuba", conf_Cuba[nrow(conf_Cuba)], "\n")
## Confirmados Cuba 1087
#Decesos
dec_Cuba <- t(datos_decesos[datos_decesos$Country.Region=="Cuba",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_Cuba[nrow(dec_Cuba)], "\n")
## Cantidad de fallecidos a causa del covid-19 : 36
#Recuperados
rec_Cuba <- t(datos_recuperados[datos_recuperados$Country.Region=="Cuba",])
cat("Cantidad de personas recuperadas :", rec_Cuba[nrow(rec_Cuba)], "\n")
## Cantidad de personas recuperadas : 285
Conclusión:
Se sabe que este virus es muy peligroso por la manera en que se
propaga, porque hay personas que, al ser contagiadas no presenten fuertes sintomas o quizás ni siquiera los presenten, tomando esto en cuenta, si se propaga a el sector de la población que sus antecedentes medicos no han sido malo con problemas cardivasculares, respiratorios, etc, es donde se presenta un grave problema. De estos 5 casos analizados quiero hacer enfasis en 2, el primero “Estados unidos” ya que actualmente es el pais que mas está sufriendo devido al covid-19, con la mayor cantidad de infectados y así mismos una gran cantidad de personas que lamentablemente perdieron la vida devido a este virus, el segundo es Republica Dominicana ya que es impactante observar que al ser un pais que a comparación de México o US en su extensión territorial no es muy grande, tiene una gran cantidad de infectados, con la mitad de los que actualmente presenta México, pero el metivo no lo puedo asegurar con solo los datos de infectados, ya que se puede deber a muchos factores como lo puenden ser, un sistema de salud muy malo, falta de medidas sanitarias por parte de los pobladores de dicho pais u otros factores.