U1A6

#Analisis de datos diarios de COVID-19 y salud para MEXICO

*importar paquetes

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

*importar datos se utilizaran datos abiertos del portal de coronavirus del gobierno de mexico encontrable:https://coronavirus.gob.mx/datos/#DownZCSV

#leer datos del archivo local descargado
datos <- read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200913.csv")

Mapa y casos de coronavirus en México por estados hoy 17 de septiembre

##Transformar

#Datos confirmados para chihuahua (absolutos y acumulados)
chihuahua <- t(datos[datos$nombre == "CHIHUAHUA" ,])
chihuahua <- as.vector(chihuahua)
chihuahua <- chihuahua[4:248]
chihuahua <- as.numeric(chihuahua)
chihuahua <- as.vector(chihuahua)
chihuahua <- cumsum(chihuahua)

#Datos confirmados para durango (absolutos y acumulados)
durango <- t(datos[datos$nombre == "DURANGO" ,])
durango <- as.vector(durango)
durango <- durango[4:248]
durango <- as.numeric(durango)
durango <- as.vector(durango)
durango <- cumsum(durango)

             
#Vector de Fecha

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

No olviden los cuidados

Gracias por su atencion, espero le haya sido de ayuda el trabajo aqui creado mediante Rstudio para el estudio de corona virus en los estados de DURANGO Y CHIHUAHUA