U1A6

Análisis de datos diarios de COVID-19 y salud para Sonora

• Folder de trabajo setwd(“~/EstadisticaAplicada”)

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

library(readr)
datos <- read_csv("Casos_Diarios_Estado_Nacional_Confirmados_20200913.csv")

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   cve_ent = col_character(),
##   nombre = col_character()
## )

## See spec(...) for full column specifications.

View(datos)

#Leer datos del archivo local descargado #Tuve problemas para poder importar datos como el ejemplo que usted hizo maestro. por eso importe datos directamente desde Import Dateset….

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" )