Analisis comparativo durango y coahuila

Importar

importar paquetes

library(pacman)
p_load("base64enc","htmltools","mime","xfun","prettydoc","readr","kintr","DT","Scales","tidyverse","gridExtra","modeest","fdth")
## Installing package into 'C:/Users/migue/OneDrive/Documents/R/win-library/3.6'
## (as 'lib' is unspecified)
## Warning: package 'kintr' is not available (for R version 3.6.3)
## Warning: unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.6:
##   no fue posible abrir la URL 'http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.6/PACKAGES'
## Warning: 'BiocManager' not available.  Could not check Bioconductor.
## 
## Please use `install.packages('BiocManager')` and then retry.
## Warning in p_install(package, character.only = TRUE, ...):
## Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
## logical.return = TRUE, : there is no package called 'kintr'
## Installing package into 'C:/Users/migue/OneDrive/Documents/R/win-library/3.6'
## (as 'lib' is unspecified)
## Warning: package 'Scales' is not available (for R version 3.6.3)
## Warning: Perhaps you meant 'scales' ?
## Warning: unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.6:
##   no fue posible abrir la URL 'http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/3.6/PACKAGES'
## Warning: 'BiocManager' not available.  Could not check Bioconductor.
## 
## Please use `install.packages('BiocManager')` and then retry.
## Warning in p_install(package, character.only = TRUE, ...):
## Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
## logical.return = TRUE, : there is no package called 'Scales'
## Warning in p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc", : Failed to install/load:
## kintr, Scales

Importar daots

datos = read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200913.csv")

Transformar y filtrar

Durango = t(datos[datos$nombre=="DURANGO"])
Durango = as.vector(Durango)
Durango = Durango [4:248]
Durango = as.numeric(Durango)
Durango = as.vector(Durango)
#Aqui se almacena el acumulado de casos para Durango
aDurango = cumsum(Durango)

Coahuila = t(datos[datos$nombre=="COAHUILA"])
Coahuila = as.vector(Coahuila)
Coahuila = Coahuila [4:248]
Coahuila = as.numeric(Coahuila)
Coahuila = as.vector(Coahuila)
#Aqui se almacena el acumulado de casos para coahuila
aCoahuila = cumsum(Coahuila)

# mostrar las graficas.
plot (Durango)

plot (Coahuila)

Fecha <- seq(from = as.Date("2020-01-12"), to = as.Date("2020-09-12"), by = "day")
duraCoahui <- data.frame(Fecha,Durango,Coahuila)
AcuDuraCoahui <- data.frame(Fecha,aDurango,aCoahuila)

##Tabla

datatable(duraCoahui)
datatable(AcuDuraCoahui)

Graficas

#absolutos
ggplot(data = duraCoahui) +
  geom_line(aes(Fecha,Durango,colour="Durango"))+
  geom_line(aes(Fecha,Coahuila,colour="Coahuila"))+
  xlab("Mes del año 2020")+
  ylab("Casos diarios")+
  ggtitle("Casos diarios confirmados de COVID-19 en durango y coahuila")

#acumulados
# Marco de datos con los datos y datos acumulados de durango
Durango1 <- data.frame(Fecha, Durango, aDurango)

# Gráfica de durango
g2 <- ggplot(data = Durango1) +
  geom_col(aes(Fecha,Durango))+
  xlab("Mes del año 2020")+
  ylab("Casos diarios")+
  ggtitle("A) Casos diarios confirmados de COVID-19 en Durango ") 

g3 <- ggplot(data = Durango1) +
  geom_col(aes(Fecha,aDurango))+
  xlab("Mes del año 2020")+
  ylab("Casos diarios")+
  ggtitle("B) Casos diarios confirmados acumulados de COVID-19 en Durango ")

# Comparativa de las dos graficas
grid.arrange(g2,g3)

# Marco de datos con los datos y datos acumulados de coahuila
Coahuila1 <- data.frame(Fecha, Coahuila, aCoahuila)

# Gráfica de coahuiña
g2 <- ggplot(data = Coahuila1) +
  geom_col(aes(Fecha,Coahuila))+
  xlab("Mes del año 2020")+
  ylab("Casos diarios")+
  ggtitle("A) Casos diarios confirmados de COVID-19 en coahuila ") 

g3 <- ggplot(data = Coahuila1) +
  geom_col(aes(Fecha, aCoahuila))+
  xlab("Mes del año 2020")+
  ylab("Casos diarios")+
  ggtitle("B) Casos diarios confirmados acumulados de COVID-19 en coahuila ")

# Comparativa de las dos graficas
grid.arrange(g2,g3)

## Media

mean(Durango)
## [1] 89.44898
mean(Coahuila)
## [1] 90.7551

##Mediana

median(Durango)
## [1] 25
median(Coahuila)
## [1] 31

Moda

mfv(Durango)
## [1] 0
mfv(Coahuila)
## [1] 0

Resumen

summary(Coahuila)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.00    0.00   31.00   90.76  111.00 1199.00

Grafico de caja y bigotes

boxplot(Durango)

boxplot(Coahuila)

## Medidas de dispersion

var(Durango)
## [1] 24752.84
var(Coahuila)
## [1] 26928.75

Se puede observar claramente la similtud entre el numero de casos en ambos estados, siendo solamente una diferencia muy minima.

Varianza

sd(Durango)
## [1] 157.3303
sd(Coahuila)
## [1] 164.0998