A10U2

Análisis de los decesos por covid 19 en México

Acerca de este documento

• Este es un documento que explica de manera demostrativa una forma de procesar datos abiertos oficiales de México y convertirlos en análisis y visualizaciones que puedan ser útiles para los ciudadanos ante la pandemia por COVID-19

• El análisis fue realizado con el objetivo de difundir y democratizar el uso y análisis de datos en México para de esta forma crear una masa crítica que nos permita tomar mejores decisiones en lo colectivo con mejores herramientas y métodos.

• Los datos fueron obtenidos del github de la universidad de Johns Hopkins: https://coronavirus.jhu.edu/map.html

Importación de paquetes

setwd("~/Documents/pye1pm")
library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales")

Descarga de este código

xfun::embed_file("A10U2.Rmd")

Download A10U2.Rmd

Datos globales de Johns Hopkins University para México

#Crear variable
url_decesos <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv"

#Leer los archivos .csv de la url 
datos_decesos <- read.csv(url_decesos)

#Extraer los datos para México 
dec_mexico <- t(datos_decesos[datos_decesos$Country.Region=="Mexico" ,])

Formatear datos

• Eliminar campos no utilizables
• Formatear las fechas
• Crear un marco de datos (data frame)

Fecha <- seq(from= as.Date("2020-01-22"), to = as.Date("2022-03-11"), by="day"     )

#Formateo de los datos 
vec1 <- as.vector(dec_mexico)
vec2 <- vec1[5:786]
num1 <- as.numeric(vec2)
Decesos <- as.vector(num1)

Primer análisis gráfico

plot(Decesos)