setwd("~/ONLINEDS")

#Analisis de datos covid 19 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/miran/OneDrive/Documentos/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\miran\OneDrive\Documentos\R\win-
## library\3.6\00LOCK\classInt\libs\x64\classInt.dll
## a C:\Users\miran\OneDrive\Documentos\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\miran\AppData\Local\Temp\RtmpYdQqhm\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:
## tmap
devtools::install_github("nathan-russell/hashmap")
## Skipping install of 'hashmap' from a github remote, the SHA1 (39d547d5) has not changed since last install.
##   Use `force = TRUE` to force installation
#Primera parte datos diarios y acumulados

#Leer datos 
datos<- read.csv("Casos_Diarios_Estado_Nacional_Confirmados.csv")
#Casos diarios Nayarit
Nayarit <- t(datos[datos$nombre=="NAYARIT" ,])
Nayarit <- as.vector(Nayarit)
Nayarit <- Nayarit[4:133]
Nayarit <- as.numeric(Nayarit)
Nayarit <- as.vector(Nayarit)
cnayarit <- cumsum(Nayarit)

#Casos diarios Puebla
Puebla <- t(datos[datos$nombre=="PUEBLA" ,])
Puebla <- as.vector(Puebla)
Puebla <- Puebla[4:133]
Puebla <- as.numeric(Puebla)
Puebla <- as.vector(Puebla)
cpuebla <- cumsum(Puebla)

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

NayPue <-data.frame(Fecha, Nayarit, Puebla)
cNayPue <-data.frame(Fecha, cnayarit, cpuebla)

#Graficos de casos diarios confirmados
plot(Nayarit)

#Grafica Nayarit
ggplot(data = NayPue) +
  ggtitle("Casos diarios COVID-19 en Nayarit")+
  geom_line(mapping = aes(x = Fecha, y =Nayarit ))
## Warning: Removed 1 row(s) containing missing values (geom_path).

# Grafica comparativa Nayarit y Puebla
ggplot(data=cNayPue) +
  geom_line(aes(Fecha, cnayarit, colour = 'Nayarit')) + 
  geom_line(aes(Fecha, cpuebla, colour ='Puebla') )+ 
  xlab('Fecha')+
  ylab('Casos Diarios') +
  labs(colour = "Estados")+
  ggtitle("Comparativa Nayarit y Puebla Covid-19")+
  transition_reveal(Fecha)
## Warning: Removed 1 row(s) containing missing values (geom_path).
## Warning: Removed 1 row(s) containing missing values (geom_path).

## Warning: Removed 1 row(s) containing missing values (geom_path).

## Warning: Removed 1 row(s) containing missing values (geom_path).

# Grafica interactiva
g <- ggplot(data=cNayPue) +
  geom_line(aes(Fecha, cnayarit, colour = 'Nayarit')) + 
  geom_line(aes(Fecha, cpuebla, colour ='Puebla') )+ 
  xlab('Fecha')+
  ylab('Casos Diarios Acumulados') +
  labs(colour = "Estados")+
  ggtitle("Comparativa Nayarit y Puebla Covid-19")
ggplotly(g)
Nayarit1 <-data.frame(Fecha, Nayarit, cnayarit)

#Diarios y acumulados para Nayarit
g2 <- ggplot(data=Nayarit1)+
  geom_col(aes(Fecha, cnayarit))+
  xlab('Fecha')+
  ylab('Casos diarios')+
  ggtitle("Confirmados de COVID-19 en Nayarit 13 de Mayo 2020")
 

g3 <- ggplot(data=Nayarit1)+
  geom_line(aes(Fecha, cnayarit))+
  xlab('Fecha')+
  ylab('Casos diarios')+
  ggtitle("Confirmados de COVID-19 en Nayarit 13 de Mayo 2020")

p_load(gridExtra)
grid.arrange(g2, g3)
## Warning: Removed 1 rows containing missing values (position_stack).

## Warning: Removed 1 row(s) containing missing values (geom_path).

Puebla1 <-data.frame(Fecha, Nayarit, cnayarit)

#Diarios y acumulados para Puebla
g4 <- ggplot(data=Puebla1)+
  geom_col(aes(Fecha, cpuebla))+
  xlab('Fecha')+
  ylab('Casos diarios')+
  ggtitle("Confirmados de COVID-19 en Puebla 13 de Mayo 2020")


g5 <- ggplot(data=Nayarit1)+
  geom_line(aes(Fecha, cpuebla))+
  xlab('Fecha')+
  ylab('Casos diarios')+
  ggtitle("Confirmados de COVID-19 en Puebla 13 de Mayo 2020")

p_load(gridExtra)
grid.arrange(g4, g5)
## Warning: Removed 1 rows containing missing values (position_stack).

## Warning: Removed 1 row(s) containing missing values (geom_path).