casos COVID Mexico confirmados del 15 al 10
Maria Romualda
28/4/2020
Casos de casos confirmados en Mexico del 15 al 20 de Abril 2020
Cargara libreias
library(readr)Cargar los datos
getwd()## [1] "C:/Users/ADMIN/Documents/Modulo 3 Curso de Titulacion/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.00Limpiar datos de casos negaivos
*convertir el valor absoluto de la columna o variable case
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#vover 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.00Filtrar los datos con subset()
- Los de Mexico confirmados
mexico <- subset(datos, Country.Region == "Mexico" & type == 'confirmed')
mexico## Province.State Country.Region Lat Long date cases
## 9952 Mexico 23.6345 -102.5528 2020-01-22 0
## 9953 Mexico 23.6345 -102.5528 2020-01-23 0
## 9954 Mexico 23.6345 -102.5528 2020-01-24 0
## 9955 Mexico 23.6345 -102.5528 2020-01-25 0
## 9956 Mexico 23.6345 -102.5528 2020-01-26 0
## 9957 Mexico 23.6345 -102.5528 2020-01-27 0
## 9958 Mexico 23.6345 -102.5528 2020-01-28 0
## 9959 Mexico 23.6345 -102.5528 2020-01-29 0
## 9960 Mexico 23.6345 -102.5528 2020-01-30 0
## 9961 Mexico 23.6345 -102.5528 2020-01-31 0
## 9962 Mexico 23.6345 -102.5528 2020-02-01 0
## 9963 Mexico 23.6345 -102.5528 2020-02-02 0
## 9964 Mexico 23.6345 -102.5528 2020-02-03 0
## 9965 Mexico 23.6345 -102.5528 2020-02-04 0
## 9966 Mexico 23.6345 -102.5528 2020-02-05 0
## 9967 Mexico 23.6345 -102.5528 2020-02-06 0
## 9968 Mexico 23.6345 -102.5528 2020-02-07 0
## 9969 Mexico 23.6345 -102.5528 2020-02-08 0
## 9970 Mexico 23.6345 -102.5528 2020-02-09 0
## 9971 Mexico 23.6345 -102.5528 2020-02-10 0
## 9972 Mexico 23.6345 -102.5528 2020-02-11 0
## 9973 Mexico 23.6345 -102.5528 2020-02-12 0
## 9974 Mexico 23.6345 -102.5528 2020-02-13 0
## 9975 Mexico 23.6345 -102.5528 2020-02-14 0
## 9976 Mexico 23.6345 -102.5528 2020-02-15 0
## 9977 Mexico 23.6345 -102.5528 2020-02-16 0
## 9978 Mexico 23.6345 -102.5528 2020-02-17 0
## 9979 Mexico 23.6345 -102.5528 2020-02-18 0
## 9980 Mexico 23.6345 -102.5528 2020-02-19 0
## 9981 Mexico 23.6345 -102.5528 2020-02-20 0
## 9982 Mexico 23.6345 -102.5528 2020-02-21 0
## 9983 Mexico 23.6345 -102.5528 2020-02-22 0
## 9984 Mexico 23.6345 -102.5528 2020-02-23 0
## 9985 Mexico 23.6345 -102.5528 2020-02-24 0
## 9986 Mexico 23.6345 -102.5528 2020-02-25 0
## 9987 Mexico 23.6345 -102.5528 2020-02-26 0
## 9988 Mexico 23.6345 -102.5528 2020-02-27 0
## 9989 Mexico 23.6345 -102.5528 2020-02-28 1
## 9990 Mexico 23.6345 -102.5528 2020-02-29 3
## 9991 Mexico 23.6345 -102.5528 2020-03-01 1
## 9992 Mexico 23.6345 -102.5528 2020-03-02 0
## 9993 Mexico 23.6345 -102.5528 2020-03-03 0
## 9994 Mexico 23.6345 -102.5528 2020-03-04 0
## 9995 Mexico 23.6345 -102.5528 2020-03-05 0
## 9996 Mexico 23.6345 -102.5528 2020-03-06 1
## 9997 Mexico 23.6345 -102.5528 2020-03-07 0
## 9998 Mexico 23.6345 -102.5528 2020-03-08 1
## 9999 Mexico 23.6345 -102.5528 2020-03-09 0
## 10000 Mexico 23.6345 -102.5528 2020-03-10 0
## 10001 Mexico 23.6345 -102.5528 2020-03-11 1
## 10002 Mexico 23.6345 -102.5528 2020-03-12 4
## 10003 Mexico 23.6345 -102.5528 2020-03-13 0
## 10004 Mexico 23.6345 -102.5528 2020-03-14 14
## 10005 Mexico 23.6345 -102.5528 2020-03-15 15
## 10006 Mexico 23.6345 -102.5528 2020-03-16 12
## 10007 Mexico 23.6345 -102.5528 2020-03-17 29
## 10008 Mexico 23.6345 -102.5528 2020-03-18 11
## 10009 Mexico 23.6345 -102.5528 2020-03-19 25
## 10010 Mexico 23.6345 -102.5528 2020-03-20 46
## 10011 Mexico 23.6345 -102.5528 2020-03-21 39
## 10012 Mexico 23.6345 -102.5528 2020-03-22 48
## 10013 Mexico 23.6345 -102.5528 2020-03-23 65
## 10014 Mexico 23.6345 -102.5528 2020-03-24 51
## 10015 Mexico 23.6345 -102.5528 2020-03-25 38
## 10016 Mexico 23.6345 -102.5528 2020-03-26 70
## 10017 Mexico 23.6345 -102.5528 2020-03-27 110
## 10018 Mexico 23.6345 -102.5528 2020-03-28 132
## 10019 Mexico 23.6345 -102.5528 2020-03-29 131
## 10020 Mexico 23.6345 -102.5528 2020-03-30 145
## 10021 Mexico 23.6345 -102.5528 2020-03-31 101
## 10022 Mexico 23.6345 -102.5528 2020-04-01 121
## 10023 Mexico 23.6345 -102.5528 2020-04-02 163
## 10024 Mexico 23.6345 -102.5528 2020-04-03 132
## 10025 Mexico 23.6345 -102.5528 2020-04-04 178
## 10026 Mexico 23.6345 -102.5528 2020-04-05 202
## 10027 Mexico 23.6345 -102.5528 2020-04-06 253
## 10028 Mexico 23.6345 -102.5528 2020-04-07 296
## 10029 Mexico 23.6345 -102.5528 2020-04-08 346
## 10030 Mexico 23.6345 -102.5528 2020-04-09 396
## 10031 Mexico 23.6345 -102.5528 2020-04-10 260
## 10032 Mexico 23.6345 -102.5528 2020-04-11 403
## 10033 Mexico 23.6345 -102.5528 2020-04-12 375
## 10034 Mexico 23.6345 -102.5528 2020-04-13 442
## 10035 Mexico 23.6345 -102.5528 2020-04-14 353
## 10036 Mexico 23.6345 -102.5528 2020-04-15 385
## 10037 Mexico 23.6345 -102.5528 2020-04-16 448
## 10038 Mexico 23.6345 -102.5528 2020-04-17 450
## 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
## 9952 confirmed
## 9953 confirmed
## 9954 confirmed
## 9955 confirmed
## 9956 confirmed
## 9957 confirmed
## 9958 confirmed
## 9959 confirmed
## 9960 confirmed
## 9961 confirmed
## 9962 confirmed
## 9963 confirmed
## 9964 confirmed
## 9965 confirmed
## 9966 confirmed
## 9967 confirmed
## 9968 confirmed
## 9969 confirmed
## 9970 confirmed
## 9971 confirmed
## 9972 confirmed
## 9973 confirmed
## 9974 confirmed
## 9975 confirmed
## 9976 confirmed
## 9977 confirmed
## 9978 confirmed
## 9979 confirmed
## 9980 confirmed
## 9981 confirmed
## 9982 confirmed
## 9983 confirmed
## 9984 confirmed
## 9985 confirmed
## 9986 confirmed
## 9987 confirmed
## 9988 confirmed
## 9989 confirmed
## 9990 confirmed
## 9991 confirmed
## 9992 confirmed
## 9993 confirmed
## 9994 confirmed
## 9995 confirmed
## 9996 confirmed
## 9997 confirmed
## 9998 confirmed
## 9999 confirmed
## 10000 confirmed
## 10001 confirmed
## 10002 confirmed
## 10003 confirmed
## 10004 confirmed
## 10005 confirmed
## 10006 confirmed
## 10007 confirmed
## 10008 confirmed
## 10009 confirmed
## 10010 confirmed
## 10011 confirmed
## 10012 confirmed
## 10013 confirmed
## 10014 confirmed
## 10015 confirmed
## 10016 confirmed
## 10017 confirmed
## 10018 confirmed
## 10019 confirmed
## 10020 confirmed
## 10021 confirmed
## 10022 confirmed
## 10023 confirmed
## 10024 confirmed
## 10025 confirmed
## 10026 confirmed
## 10027 confirmed
## 10028 confirmed
## 10029 confirmed
## 10030 confirmed
## 10031 confirmed
## 10032 confirmed
## 10033 confirmed
## 10034 confirmed
## 10035 confirmed
## 10036 confirmed
## 10037 confirmed
## 10038 confirmed
## 10039 confirmed
## 10040 confirmed
## 10041 confirmed
## 10042 confirmed
## 10043 confirmed
## 10044 confirmedhead(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 confirmedtail(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 del 15 al 22 de abri del 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") Mostrar grafica de barras
barplot(mexico1520$cases, names.arg = mexico1520$date)