Análisis de datos diarios de COVID-19 y salud para Sonora Y sinaloa
- Folder de trabajo setwd(“~/EA1011”)
IMPORTAR
- 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 México, que se pueden encontrar en: https://coronavirus.gob.mx/datos/#DownZCSV
TRANSFORMAR
#Datos confirmados para Sonora (absolutos y acumulados)
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 confirmados para Sinaloa (absolutos y acumulados)
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 de Fecha
Fecha <- seq(from = as.Date("2020-01-12"), to = as.Date("2020-09-12"), by = "day" )Se repasa lo anteriormente hecho, ahora con estados diferentes
BAJA CALIFORNIA vs BAJA CALIFORNIA sur
Analisis de datos diarios de COVID-19 y salud para BAJA CALIFORNIA y BAJA CALIFORNIA SUR
#Datos confirmados para BAJA CALIFORNIA (absolutos y acumulados)
BAJA.CALIFORNIA <- t(datos[datos$nombre == "BAJA CALIFORNIA" ,])
BAJA.CALIFORNIA <- as.vector(BAJA.CALIFORNIA)
BAJA.CALIFORNIA <- BAJA.CALIFORNIA[4:248]
BAJA.CALIFORNIA <- as.numeric(BAJA.CALIFORNIA)
BAJA.CALIFORNIA <- as.vector(BAJA.CALIFORNIA)
aBAJA.CALIFORNIA <- cumsum(BAJA.CALIFORNIA)
#Datos confirmados para BAJA CALIFORNIA SUR (absolutos y acumulados)
BAJA.CALIFORNIA.SUR <- t(datos[datos$nombre == "BAJA CALIFORNIA SUR" ,])
BAJA.CALIFORNIA.SUR <- as.vector(BAJA.CALIFORNIA.SUR)
BAJA.CALIFORNIA.SUR <- BAJA.CALIFORNIA.SUR[4:248]
BAJA.CALIFORNIA.SUR <- as.numeric(BAJA.CALIFORNIA.SUR)
BAJA.CALIFORNIA.SUR <- as.vector(BAJA.CALIFORNIA.SUR)
aBAJA.CALIFORNIA.SUR <- cumsum(BAJA.CALIFORNIA.SUR)
#Vector de Fecha
Fecha <- seq(from = as.Date("2020-01-12"), to = as.Date("2020-09-12"), by = "day" )