U1A6

Analisis de datos diarios de COVID-19 y salud para Sonora

IMPORTAR

Aqui vamos a importar los paquetes a utilizar, gracias a la libreria pacman podemos hacerlo mas rapido

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

• Importar datos

Aqui vamos a busca los datos a utilizar

**Se utilizaran atos abiertos del portal de coronavirus del gobierno de Mexico, se pueden encontrar en: https://coronavirus.gob.mx/datos/#DownZCSV**

#Leer datos del archivo descargado
datos <- read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200915.csv")

TRANSFORMAR

Aqui vamos a acomodar los datos y limpiarlos hasta dejarlos lo mas Apto posibles, transponiéndolos, convirtiendolos en vector, eligiendo de donde a donde los veremos, convirtiendolos en numericos, haciendolos vector de nuevo, y usando cumsum para sumarlos unos tras otros.

#Datos confirmados para Baja California (absolutos y acumulados)
BajaCalifornia <- t(datos[datos$nombre == "BAJA CALIFORNIA" ,])
BajaCalifornia <- as.vector(BajaCalifornia)
BajaCalifornia <- BajaCalifornia[4:248]
BajaCalifornia <- as.numeric(BajaCalifornia)
BajaCalifornia <- as.vector(BajaCalifornia)
aBajaCalifornia <- cumsum(BajaCalifornia)

#Datos confirmados para Baja California Sur (absolutos y acumulados)
BajaCaliforniaSur <- t(datos[datos$nombre == "BAJA CALIFORNIA SUR" ,])
BajaCaliforniaSur <- as.vector(BajaCaliforniaSur)
BajaCaliforniaSur <- BajaCaliforniaSur[4:248]
BajaCaliforniaSur <- as.numeric(BajaCaliforniaSur)
BajaCaliforniaSur <- as.vector(BajaCaliforniaSur)
aBajaCaliforniaSur <- cumsum(BajaCaliforniaSur)

#Vector de Fecha

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