Análisis de datos diarios de covid19 y salud en Sonora

library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc", "readr", "knitr", "DT", "tidyverse")

**Se usaran datos abiertos del portal del gobierno de México que se pueden hallar en: https://coronavirus.gob.mx/datos/#DownZCSV**

datos <- read.csv("file:///C:/Users/josefina/Documents/Estadistica aplicada/Casos_Diarios_Estado_Nacional_Confirmados_20200913.csv")

Transformar

#Datos confirmados para Sonora (absolutos y acomulados)
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 acomulados)
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")

Tarea

  • Datos de dos estados colindantes de México Jalisco y Guanajuato
#Datos confirmados para Sonora (absolutos y acomulados)
Jalisco <- t(datos[datos$nombre == "JALISCO" ,])
Jalisco <- as.vector(Jalisco)
Jalisco <- Jalisco[4:248]
Jalisco <- as.numeric(Jalisco)
Jalisco <- as.vector(Jalisco)
aJalisco <- cumsum(Jalisco)

#Datos confirmados para Sinaloa (absolutos y acomulados)
Guanajuato <- t(datos[datos$nombre == "GUANAJUATO" ,])
Guanajuato <- as.vector(Guanajuato)
Guanajuato <- Guanajuato[4:248]
Guanajuato <- as.numeric(Guanajuato)
Guanajuato <- as.vector(Guanajuato)
aGuanajuato <- cumsum(Guanajuato)

# Vector de fecha
Fecha <- seq(from = as.Date("2020-01-12"), to = as.Date("2020-09-12"), by = "day")

```