Ánalisis de datos diarios covid 19 en el estado de Sonora
- Importar paquetes
library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc", "readr","knitr", "DT", "tidyverse")*Importar datos
**Se utilizarán datos abiertos del portal de coronavirus del gobierno de mexico encontrable en:
https://coronavirus.gob.mx/datos/#DownZCSVhttps://coronavirus.gob.mx/datos/#DownZCSV
#leer datos del archivo local descargado
datos <- read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200913 (2).csv")Transformar
#datos absolutos y acumulados para sonora
sonora <- t(datos[datos$nombre == "SONORA" ,])
sonora <- as.vector(sonora)
sonora <- sonora[4:248]
sonora <- as.numeric(sonora)
sonora <- as.vector(sonora)
asonora <- cumsum(sonora)
#datos absolutos y acumulados para Sinaloa
sinaloa <- t(datos[datos$nombre == "SINALOA" ,])
sinaloa <- as.vector(sinaloa)
sinaloa <- sinaloa[4:248]
sinaloa <- as.numeric(sinaloa)
sinaloa <- as.vector(sinaloa)
asinaloa <- cumsum(sinaloa)
# vector fecha
Fecha <- seq(from = as.Date("2020-01-12"), to = as.Date("2020-09-12"), by = "day" )- NOTA: en cumsum se acumularon los datos que en un principio eran absolutos