Casos COVID Mexico confirmados 15 al 20

Casos de COVID confirmados en México del 15 al 20 de Abril 2020

Cargar librerias

library(readr)

Cargar los datos

getwd() # En que lugar se está trabajando

## [1] "C:/Users/Familia/Desktop/CURSO TITULACION/Archivos R/Markdown"

datos <- read.csv("../Datos/coronavirus.csv")

Explorar los datos

str(datos)

## 'data.frame':    72354 obs. of  7 variables:
##  $ Province.State: chr  "" "" "" "" ...
##  $ Country.Region: chr  "Afghanistan" "Afghanistan" "Afghanistan" "Afghanistan" ...
##  $ Lat           : num  33 33 33 33 33 33 33 33 33 33 ...
##  $ Long          : num  65 65 65 65 65 65 65 65 65 65 ...
##  $ date          : chr  "2020-01-22" "2020-01-23" "2020-01-24" "2020-01-25" ...
##  $ cases         : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ type          : chr  "confirmed" "confirmed" "confirmed" "confirmed" ...

summary(datos)

##  Province.State     Country.Region          Lat               Long        
##  Length:72354       Length:72354       Min.   :-51.796   Min.   :-135.00  
##  Class :character   Class :character   1st Qu.:  6.877   1st Qu.: -15.18  
##  Mode  :character   Mode  :character   Median : 22.300   Median :  21.01  
##                                        Mean   : 20.910   Mean   :  24.02  
##                                        3rd Qu.: 40.182   3rd Qu.:  84.25  
##                                        Max.   : 71.707   Max.   : 178.06  
##      date               cases              type          
##  Length:72354       Min.   :-2190.00   Length:72354      
##  Class :character   1st Qu.:    0.00   Class :character  
##  Mode  :character   Median :    0.00   Mode  :character  
##                     Mean   :   50.28                     
##                     3rd Qu.:    0.00                     
##                     Max.   :34126.00

Limpiar datos de casos negativos

Se detectaron valores negativos en cases…. No debiera ser conforme a la realidad.
Convertir a valor absoluto todos los valores de la columna o variable cases

datos$cases <- abs(datos$cases)

summary(datos)

##  Province.State     Country.Region          Lat               Long        
##  Length:72354       Length:72354       Min.   :-51.796   Min.   :-135.00  
##  Class :character   Class :character   1st Qu.:  6.877   1st Qu.: -15.18  
##  Mode  :character   Mode  :character   Median : 22.300   Median :  21.01  
##                                        Mean   : 20.910   Mean   :  24.02  
##                                        3rd Qu.: 40.182   3rd Qu.:  84.25  
##                                        Max.   : 71.707   Max.   : 178.06  
##      date               cases              type          
##  Length:72354       Min.   :    0.00   Length:72354      
##  Class :character   1st Qu.:    0.00   Class :character  
##  Mode  :character   Median :    0.00   Mode  :character  
##                     Mean   :   50.41                     
##                     3rd Qu.:    0.00                     
##                     Max.   :34126.00

Volver a explorar los datos

str(datos)

## 'data.frame':    72354 obs. of  7 variables:
##  $ Province.State: chr  "" "" "" "" ...
##  $ Country.Region: chr  "Afghanistan" "Afghanistan" "Afghanistan" "Afghanistan" ...
##  $ Lat           : num  33 33 33 33 33 33 33 33 33 33 ...
##  $ Long          : num  65 65 65 65 65 65 65 65 65 65 ...
##  $ date          : chr  "2020-01-22" "2020-01-23" "2020-01-24" "2020-01-25" ...
##  $ cases         : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ type          : chr  "confirmed" "confirmed" "confirmed" "confirmed" ...

summary(datos)

##  Province.State     Country.Region          Lat               Long        
##  Length:72354       Length:72354       Min.   :-51.796   Min.   :-135.00  
##  Class :character   Class :character   1st Qu.:  6.877   1st Qu.: -15.18  
##  Mode  :character   Mode  :character   Median : 22.300   Median :  21.01  
##                                        Mean   : 20.910   Mean   :  24.02  
##                                        3rd Qu.: 40.182   3rd Qu.:  84.25  
##                                        Max.   : 71.707   Max.   : 178.06  
##      date               cases              type          
##  Length:72354       Min.   :    0.00   Length:72354      
##  Class :character   1st Qu.:    0.00   Class :character  
##  Mode  :character   Median :    0.00   Mode  :character  
##                     Mean   :   50.41                     
##                     3rd Qu.:    0.00                     
##                     Max.   :34126.00

Fitrar los datos con subset()

Los de México y que sean confirmados

mexico <- subset(datos, 
                 Country.Region == "Mexico" & type == 'confirmed')


head(mexico)

##      Province.State Country.Region     Lat      Long       date cases      type
## 9952                        Mexico 23.6345 -102.5528 2020-01-22     0 confirmed
## 9953                        Mexico 23.6345 -102.5528 2020-01-23     0 confirmed
## 9954                        Mexico 23.6345 -102.5528 2020-01-24     0 confirmed
## 9955                        Mexico 23.6345 -102.5528 2020-01-25     0 confirmed
## 9956                        Mexico 23.6345 -102.5528 2020-01-26     0 confirmed
## 9957                        Mexico 23.6345 -102.5528 2020-01-27     0 confirmed

tail(mexico)

##       Province.State Country.Region     Lat      Long       date cases
## 10039                        Mexico 23.6345 -102.5528 2020-04-18   578
## 10040                        Mexico 23.6345 -102.5528 2020-04-19   622
## 10041                        Mexico 23.6345 -102.5528 2020-04-20   764
## 10042                        Mexico 23.6345 -102.5528 2020-04-21   511
## 10043                        Mexico 23.6345 -102.5528 2020-04-22   729
## 10044                        Mexico 23.6345 -102.5528 2020-04-23  2132
##            type
## 10039 confirmed
## 10040 confirmed
## 10041 confirmed
## 10042 confirmed
## 10043 confirmed
## 10044 confirmed

Los casos confirmados del 15 al 22 de abril 2020

mexico1520 <- subset(mexico, date == "2020-04-15" | 
         date == "2020-04-16" | 
         date == "2020-04-17" | 
         date == "2020-04-18" | 
         date == "2020-04-19" | 
         date == "2020-04-20" | 
         date == "2020-04-21" | 
         date == "2020-04-22" )

# Solo ciertas columnas
mexico1520[,c(2,5,6,7)]

##       Country.Region       date cases      type
## 10036         Mexico 2020-04-15   385 confirmed
## 10037         Mexico 2020-04-16   448 confirmed
## 10038         Mexico 2020-04-17   450 confirmed
## 10039         Mexico 2020-04-18   578 confirmed
## 10040         Mexico 2020-04-19   622 confirmed
## 10041         Mexico 2020-04-20   764 confirmed
## 10042         Mexico 2020-04-21   511 confirmed
## 10043         Mexico 2020-04-22   729 confirmed

Mostrar gráfica de barras

barplot(mexico1520$cases, names.arg = mexico1520$date,
        main = "Casos Confirmados en México. Última semana",
        xlab = "Dias", ylab = "Casos")

Casos COVID Mexico confirmados 15 al 20

Manuel Dominguez

2/5/2020

Cargar librerias

Cargar los datos

Explorar los datos

Limpiar datos de casos negativos

Volver a explorar los datos

Fitrar los datos con subset()

Mostrar gráfica de barras