Comparacion-Oaxaca-y-Ciudad-de-Mexico-Covid-19.R

#Analisis de datos abiertos de COVID 19 en Mexico

library(pacman)

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

p_load(markdown,knitr,dplyr,tidyr, tidyverse, hashmap, lubridate,
       summarytools,ggpubr, kableExtra, reshape2,
       sf, tmap, readr, devtools, plotly, gganimate, gifski)

## Installing package into 'C:/Users/alexis/Documents/R/win-library/3.6'
## (as 'lib' is unspecified)

## Warning: package 'hashmap' is not available (for R version 3.6.2)

## 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 'hashmap'

## Installing package into 'C:/Users/alexis/Documents/R/win-library/3.6'
## (as 'lib' is unspecified)

## also installing the dependencies 'sf', 'classInt'

## 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: package 'sf' is in use and will not be installed

## package 'classInt' successfully unpacked and MD5 sums checked

## Warning: cannot remove prior installation of package 'classInt'

## Warning in file.copy(savedcopy, lib, recursive = TRUE): problema al copiar C:
## \Users\alexis\Documents\R\win-library\3.6\00LOCK\classInt\libs\x64\classInt.dll
## a C:\Users\alexis\Documents\R\win-library\3.6\classInt\libs\x64\classInt.dll:
## Permission denied

## Warning: restored 'classInt'

## package 'tmap' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\alexis\AppData\Local\Temp\RtmpIduHeX\downloaded_packages

## 
## tmap installed

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

## Warning in p_load(markdown, knitr, dplyr, tidyr, tidyverse, hashmap, lubridate, : Failed to install/load:
## hashmap, tmap

#devtools::install_github("nathan-russell/hashmap")

#Primera parte datos diarios y acumulados

#Leer datos 
datos<- read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200513.csv")
#Casos diarios Oaxaca
OAXACA<- t(datos[datos$nombre=="OAXACA" ,])
OAXACA <- as.vector(OAXACA)
OAXACA<-OAXACA[4:131]
OAXACA <- as.numeric(OAXACA)
OAXACA <- as.vector(OAXACA)
cOAXACA <- cumsum(OAXACA)

#Casos diarios Ciudad de Mexico
MEXICO<- t(datos[datos$nombre=="MEXICO" ,])
MEXICO <- as.vector(MEXICO)
MEXICO<-MEXICO[4:131]
MEXICO <- as.numeric(MEXICO)
MEXICO <- as.vector(MEXICO)
cMEXICO <- cumsum(MEXICO)
#Fecha
Fecha = seq(from = as.Date("2020-01-07"), to = as.Date("2020-05-13"), by = 'day')

OAXMEX <-data.frame(Fecha, OAXACA, MEXICO)
cOAXMEX <-data.frame(Fecha, cOAXACA, cMEXICO)

#Graficos de casos diarios confirmados
plot(OAXACA)

#Grafica OAXACA
ggplot(data = OAXMEX) +
  ggtitle("Casos diarios COVID-19 en OAXACA")+
  geom_line(mapping = aes(x = Fecha, y = OAXACA ))

ggplot(data=cOAXMEX) +
  geom_line(aes(Fecha, cMEXICO, colour = 'MEXICO')) + 
  geom_line(aes(Fecha, cOAXACA, colour ='OAXACA') )+ 
  xlab('Fecha')+
  ylab('Casos Diarios') +
  labs(colour = "Estados")+
  transition_reveal(Fecha)

g <-ggplot(data=cOAXMEX) +
  geom_line(aes(Fecha, cMEXICO, colour = 'MEXICO')) + 
  geom_line(aes(Fecha, cOAXACA, colour ='OAXACA') )+ 
  xlab('Fecha')+
  ylab('Casos Diarios') +
  labs(colour = "Estados")+
  transition_reveal(Fecha)
ggplotly(g)

MEXICO1 <-data.frame(Fecha,MEXICO,cMEXICO)

#Diarios y acumulados para MEXICO

g2 <- ggplot(data=MEXICO1)+
  geom_col(aes(Fecha,cMEXICO))+
  xlab('Fecha')+
  ylab('Casos diarios Acumulados')+
  ggtitle("Confirmados de COVID-19 en MEXICO 13 mayo 2020")

g3 <- ggplot(data=MEXICO1)+
  geom_line(aes(Fecha,MEXICO))+
  xlab('Fecha')+
  ylab('Casos diarios')+
  ggtitle("Confirmados de COVID-19 en MEXICO 13 mayo 2020")

p_load(gridExtra)
grid.arrange(g2,g3)