Clases-virtuales-EA-Actividad-1-covid-19.R

#Sagasta Ontiveros Alexis Issac 00000148497

#Introducción

#Yo para este ejercicio elegi los principales paises en vias de desarrollo.

library(readr)

## Warning: package 'readr' was built under R version 3.6.3

url_conf <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv"

url_decesos <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv"

url_recuperados <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_recovered_global.csv"

#variables en marcos de datos

datos_conf <- read.csv(url_conf)
datos_decesos <- read.csv(url_decesos)
datos_recuperados <- read.csv(url_recuperados)

#Mexico 

conf_Mexico <- t(datos_conf[datos_conf$Country.Region=="Mexico",])
cat("Confirmados Mexico", conf_Mexico[nrow(conf_Mexico)], "\n")

## Confirmados Mexico 8772

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 : 712

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

#India

conf_India <- t(datos_conf[datos_conf$Country.Region=="India",])
cat("Confirmados India", conf_India[nrow(conf_India)], "\n")

## Confirmados India 20080

dec_India <- t(datos_decesos[datos_decesos$Country.Region=="India",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_India[nrow(dec_India)], "\n")

## Cantidad de fallecidos a causa del covid-19 : 645

rec_India <- t(datos_recuperados[datos_recuperados$Country.Region=="India",])
cat("Cantidad de personas recuperadas :", rec_India[nrow(rec_India)], "\n")

## Cantidad de personas recuperadas : 3975

#Brazil 

conf_Brazil <- t(datos_conf[datos_conf$Country.Region=="Brazil",])
cat("Confirmados Brazil", conf_Brazil[nrow(conf_Brazil)], "\n")

## Confirmados Brazil 43079

dec_Brazil <- t(datos_decesos[datos_decesos$Country.Region=="Brazil",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_Brazil[nrow(dec_Brazil)], "\n")

## Cantidad de fallecidos a causa del covid-19 : 2741

rec_Brazil <- t(datos_recuperados[datos_recuperados$Country.Region=="Brazil",])
cat("Cantidad de personas recuperadas :", rec_Brazil[nrow(rec_Brazil)], "\n")

## Cantidad de personas recuperadas : 22991

#Sudafrica 

conf_SouthAfrica  <- t(datos_conf[datos_conf$Country.Region=="South Africa",])
cat("Confirmados Sudafrica", conf_SouthAfrica[nrow(conf_SouthAfrica)], "\n")

## Confirmados Sudafrica 3465

dec_SouthAfrica <- t(datos_decesos[datos_decesos$Country.Region=="South Africa",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_SouthAfrica[nrow(dec_SouthAfrica)], "\n")

## Cantidad de fallecidos a causa del covid-19 : 58

rec_SouthAfrica <- t(datos_recuperados[datos_recuperados$Country.Region=="South Africa",])
cat("Cantidad de personas recuperadas :", rec_SouthAfrica[nrow(rec_SouthAfrica)], "\n")

## Cantidad de personas recuperadas : 1055

#Argentina 

conf_Argentina  <- t(datos_conf[datos_conf$Country.Region=="Argentina",])
cat("Confirmados Argentina", conf_Argentina[nrow(conf_Argentina)], "\n")

## Confirmados Argentina 3031

dec_Argentina <- t(datos_decesos[datos_decesos$Country.Region=="Argentina",])
cat("Cantidad de fallecidos a causa del covid-19 :", dec_SouthAfrica[nrow(dec_Argentina)], "\n")

## Cantidad de fallecidos a causa del covid-19 : 58

rec_Argentina <- t(datos_recuperados[datos_recuperados$Country.Region=="Argentina",])
cat("Cantidad de personas recuperadas :", rec_SouthAfrica[nrow(rec_Argentina)], "\n")

## Cantidad de personas recuperadas : 1055

#Conclución
#Se puede ver que la mayoria se encuentra en la misma etapa por ahora, a excepcion de India que es entendible por su cercania con China; donde la pandemia inicio y Brazil que su precidente se niega a tomar medidas.