Análisis comparativo de datos de Salud Y COVID-19 en Tamualipas y Nuevo Leon

setwd("~/PROBABILIDAD")

IMPORTAR

Importar paquetes

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

Importar datos

Se importan desde un archivo local .csv los datos diarios de casos confirmados de COVID-19 para todo México desde la URL oficial: https://coronavirus.gob.mx/datos/#DownZCSV

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

TRANSFORMAR

Se realiza primeramente una extracción de los datos desde el data frame para Tamualipas y Nuevo Leon para juntarlos en un data frame junto con un vector de Fecha

#DATOS DIARIOS CONFIRMADOS PARA TAUMALIPAS 
tamaulipas <- t(datos[datos$nombre == "TAMAULIPAS" ,])
tamaulipas <- as.vector(tamaulipas)
tamaulipas <- tamaulipas[4:248]
tamaulipas <- as.numeric(tamaulipas)
tamaulipas <- as.vector(tamaulipas) #datos absolutos diarios
atamaulipas <- cumsum(tamaulipas) #datos acumulados

#DATOS DIARIOS CONFIRMADOS PARA NUEVO LEON
nleon<- t(datos[datos$nombre == "NUEVO LEON" ,])
nleon <- as.vector(nleon)
nleon<- nleon[4:248]
nleon <- as.numeric(nleon)
nleon <- as.vector(nleon) #datos absolutos diarios
anleon<- cumsum(nleon) #datos acumulados

#Generar un vector de Fecha

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

#Estructurar los datos en un marco de datos (data frame)

tamsin <- data.frame(Fecha, tamaulipas, nleon)
atamsin <- data.frame(Fecha, atamaulipas, anleon)

nlsin <- data.frame(Fecha,nleon, tamaulipas)
anlsin <- data.frame(Fecha, anleon, atamaulipas)

Casos diarios confirmados en Tamaulipas

plot(tamaulipas)

#Grafica Tamaulipas

ggplot(data = tamsin) + 
  ggtitle("Casos diarios COVID-19 en Tamaulipas") +
  geom_line(mapping = aes(x = Fecha, y= tamaulipas ))

Casos diarios confirmados en Nuevo Leon

plot(nleon)

#Grafica Nuevo Leon

ggplot(data = nlsin) + 
  ggtitle("Casos diarios COVID-19 en Nuevo Leon") +
  geom_line(mapping = aes(x = Fecha, y= nleon ))

Gráfica de datos absolutos (datos diarios de casos confirmados de COVID-19 en Tamaulipas y Nuevo Leon)

ggplot(data=tamsin) +
  geom_line(aes(Fecha, tamaulipas, colour = "tamaulipas")) +
  geom_line(aes(Fecha, nleon, colour = "nuevo leon")) +
  xlab("Fecha") +
  ylab("Casos diarios absolutos") + 
  labs (colour = "Estados") +
  ggtitle("Casos diarios confirmados de COVID-19 en Tamaulipas y Nuevo Leon")

  • Gráfica de datos acumulados (datos diarios de casos confirmados de COVID-19 en Tamaulipas y Nuevo Leon)
ggplot(data=atamsin) +
  geom_line(aes(Fecha, atamaulipas, colour = "tamaulipas")) +
  geom_line(aes(Fecha, anleon, colour = "nuevo leon")) +
  xlab("Fecha") +
  ylab("Casos diarios acumulados") + 
  labs (colour = "Estados") +
  ggtitle("Casos diarios confirmados de COVID-19 en Tamaulipas y Nuevo Leon") +
  scale_y_continuous(labels=comma)