U1A6

Análisis comparativo de casos confirmados de COVID-19 en Chihuahua y Jalisco

• Establecer folder de trabajo

setwd("~/Probabilidad y Estadistica")

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

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)

plot(achihuahua)

plot(ajalisco)

En el estado de Chihuahua que se encuentre en amarillo podemos observar en su grafica que no es tanta

la diferencia con la de Jalisco pero sin embargo Jalisco se encuentra en naranja.