Jalisco_NuevoLeon_covid19_Mayo.R

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/esnip/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'

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

datos<- read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200512.csv")
#Casos diarios Jalisco
Jalisco<- t(datos[datos$nombre=="JALISCO" ,])
Jalisco <- as.vector(Jalisco)
Jalisco<-Jalisco[4:133]
Jalisco <- as.numeric(Jalisco)
Jalisco <- as.vector(Jalisco)
cJalisco <- cumsum(Jalisco)

#Casos diarios Nuevo Leon
Nuevo_leon<- t(datos[datos$nombre=="NUEVO LEON" ,])
Nuevo_leon <- as.vector(Nuevo_leon)
Nuevo_leon<-Nuevo_leon[4:133]
Nuevo_leon <- as.numeric(Nuevo_leon)
Nuevo_leon <- as.vector(Nuevo_leon)
cNuevo_leon <- cumsum(Nuevo_leon)
#Fecha
Fecha = seq(from = as.Date("2020-01-05"), to = as.Date("2020-05-13"), by = 'day')
JalNL <-data.frame(Fecha, Jalisco, Nuevo_leon)
cJalNL <-data.frame(Fecha, cJalisco, cNuevo_leon)
view(JalNL)

## x must either be a summarytools object created with freq(), descr(), or a list of summarytools objects created using by()

#Graficos de casos diarios confirmados
plot(Jalisco)

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

## Warning: Removed 3 rows containing missing values (geom_path).

# Jalisco y Nuevo Leon
ggplot(data=cJalNL) +
  geom_line(aes(Fecha, cJalisco, colour = 'Jalisco')) + 
  geom_line(aes(Fecha, cNuevo_leon, colour ='Nuevo_Leon') )+ 
  xlab('Fecha')+
  ylab('Casos Diarios') +
  labs(colour = "Estados")+
  transition_reveal(Fecha)

## Warning: Removed 2 rows containing missing values (geom_path).

## Warning: Removed 2 rows containing missing values (geom_path).

## Warning: Removed 3 rows containing missing values (geom_path).

## Warning: Removed 3 rows containing missing values (geom_path).

## Warning: Removed 3 rows containing missing values (geom_path).

## Warning: Removed 3 rows containing missing values (geom_path).

#Grafica interactiva Covid Jalisco-Nuevo Leon
g <- ggplot(data=cJalNL) +
  geom_line(aes(Fecha, cJalisco, colour = 'Jalisco')) + 
  geom_line(aes(Fecha, cNuevo_leon, colour ='Nuevo_Leon') )+ 
  xlab('Fecha')+
  ylab('Casos Diarios') +
  labs(colour = "Estados")+
  ggtitle("Comparativa Jalisco y Nuevo Leon COVID-19")
ggplotly(g)

Fecha1 = seq(from = as.Date("2020-01-05"), to = as.Date("2020-05-13"), by = 'day')

Jalisco1 <-data.frame(Fecha1,Jalisco,cJalisco)

g2<- ggplot(data=Jalisco1) +
  geom_col(aes(Fecha, cJalisco)) + 
 
  xlab('Fecha')+
  ylab('Casos Diarios Acumulados') +
  ggtitle("Confirmados de COVID-19 en Jalisco 13 mayo 2020")
ggplotly(g2)

## Warning: Removed 3 rows containing missing values (position_stack).

g3<- ggplot(data=Jalisco1) +
  geom_line(aes(Fecha, Jalisco)) + 
  
  xlab('Fecha')+
  ylab('Casos Diarios') +
  ggtitle("Confirmados de COVID-19 en Jalisco 13 mayo 2020")
ggplotly(g3)

p_load(gridExtra)
grid.arrange

## function (..., newpage = TRUE) 
## {
##     if (newpage) 
##         grid.newpage()
##     g <- arrangeGrob(...)
##     grid.draw(g)
##     invisible(g)
## }
## <bytecode: 0x0000000040c26340>
## <environment: namespace:gridExtra>