Análisis comparativo de casos confirmados de COVID-19

setwd("~/PyE Programas")

IMPORTAR

IMPORTAR PAQUETES

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

IMPORTAR DATOS

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

TRANSFORMAR Y FILTRAR

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)

sinaloa <- t(datos[datos$nombre == "SINALOA",])
sinaloa <- as.vector(sinaloa)
sinaloa <- sonora [4:248]
sinaloa <- as.numeric(sinaloa)
sinaloa <- as.vector(sinaloa)
asinaloa <- cumsum(sinaloa)

VIZUALIZAR

plot(sonora)

plot(sinaloa)

TAREA

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

chihuahua <- t(datos[datos$nombre == "CHIHUAHUA",])
chihuahua <- as.vector(chihuahua)
chihuahua <- chihuahua [4:248]
chihuahua <- as.numeric(chihuahua)
chihuahua <- as.vector(chihuahua)
achihuahua <- cumsum(chihuahua)

jalisco <- t(datos[datos$nombre == "JALISCO",])
jalisco <- as.vector(jalisco)
jalisco <- jalisco [4:248]
jalisco <- as.numeric(jalisco)
jalisco <- as.vector(jalisco)
ajalisco <- cumsum(jalisco)

aguascalientes <- t(datos[datos$nombre == "AGUASCALIENTES",])
aguascalientes <- as.vector(aguascalientes)
aguascalientes <- aguascalientes [4:248]
aguascalientes <- as.numeric(aguascalientes)
aguascalientes <- as.vector(aguascalientes)
aaguascalientes <- cumsum(aguascalientes)

tlaxcala <- t(datos[datos$nombre == "TLAXCALA",])
tlaxcala <- as.vector(tlaxcala)
tlaxcala <- tlaxcala [4:248]
tlaxcala <- as.numeric(tlaxcala)
tlaxcala <- as.vector(tlaxcala)
atlaxcala <- cumsum(tlaxcala)
plot(chihuahua)

plot(jalisco)

plot(aguascalientes)

plot(tlaxcala)

Como podemos observar en chihuahua es muy reducido a comparacion de sonora y sinaloa. Con jalisco es como un entremedio de todos los que estamos poniendo en estos ejemplos.