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

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

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

#Leer datos del archivo local descargado

datos <- read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200913.csv")

TRANSFORMAR

# Datos confirmados para chiapas(abs y acum)
chiapas <- t(datos[datos$nombre== "CHIAPAS" ,])
chiapas <- as.vector(chiapas)
chiapas <- chiapas[4: 248]
chiapas <- as.numeric(chiapas)
chiapas <- as.vector(chiapas)
achiapas <- cumsum(chiapas)


# Datos confirmados para tabasco (abs y acum)
tabasco <- t(datos[datos$nombre== "TABASCO" ,])
tabasco <- as.vector(tabasco)
tabasco <- tabasco[4: 248]
tabasco <- as.numeric(tabasco)
tabasco <- as.vector(tabasco)
atabasco <- cumsum(tabasco)

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