Introduccion

En el transcurso del año 2021 se han presentado dos olas de contagios en mexico, probocado por la movilidad de personas ya sea por actividades de trabajo, actividades recreativas o de ocio. Toda esta movilidad de personas a sido la causante de que los contagios por covid-19 se den con mas frecuencia, ya que las personas salen de sus casas en dias festivos, en reuniones con conocidos entre otras actividades. Estas actividades contribuyen a una gran aglomeracion de personas que por ende, aumentan la probabilidad que contagiarse por covid-19.

library(pacman) #para importar la biblioteca "pacman"
p_load(rmdformats,readr,readx1,ggplot2,plotly,DT,xfun,gridExtra,leadflet)

## Installing package into 'D:/Documents/R/win-library/4.1'
## (as 'lib' is unspecified)

## Warning: package 'readx1' is not available for this version of R
## 
## A version of this package for your version of R might be available elsewhere,
## see the ideas at
## https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages

## Warning: unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/4.1:
##   no fue posible abrir la URL 'http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/4.1/PACKAGES'

## Warning: 'BiocManager' not available.  Could not check Bioconductor.
## 
## Please use `install.packages('BiocManager')` and then retry.

## Warning in p_install(package, character.only = TRUE, ...):

## Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
## logical.return = TRUE, : there is no package called 'readx1'

## Installing package into 'D:/Documents/R/win-library/4.1'
## (as 'lib' is unspecified)

## Warning: package 'leadflet' is not available for this version of R
## 
## A version of this package for your version of R might be available elsewhere,
## see the ideas at
## https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages

## Warning: unable to access index for repository http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/4.1:
##   no fue posible abrir la URL 'http://www.stats.ox.ac.uk/pub/RWin/bin/windows/contrib/4.1/PACKAGES'

## Warning: 'BiocManager' not available.  Could not check Bioconductor.
## 
## Please use `install.packages('BiocManager')` and then retry.

## Warning in p_install(package, character.only = TRUE, ...):

## Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
## logical.return = TRUE, : there is no package called 'leadflet'

## Warning in p_load(rmdformats, readr, readx1, ggplot2, plotly, DT, xfun, : Failed to install/load:
## readx1, leadflet

Tabla de datos de concentraciones que afectan la calidad del aire y movilidad local

library(TSstudio)

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following object is masked from 'package:gridExtra':
## 
##     combine

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(DT)
library(readxl)
CM <- read_excel("Concentracion_Mov.xlsx")
datatable(CM)

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

La tabla anterior es la relacion de datos obtenidos de Google Mobility Report en la que se relacionan los contagios en Mexico con el tipo de movilidad al cual fue asociado. Estos datos son a partir del año 2021 hasta la fecha y estan disponibles en: https://www.google.com/covid19/mobility/?hl=es

setwd("~/Aplicada")
library(readr)
covid <- read_csv("Casos_Diarios_Estado_Nacional_Confirmados.csv")

## Rows: 33 Columns: 611

## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr   (1): nombre
## dbl (610): cve_ent, poblacion, 18/02/2020, 19/02/2020, 20/02/2020, 21/02/202...

## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.

Nacional <- t(covid[covid$nombre == "Nacional" ,])
Nacional <- as.vector(Nacional)
Nacional <- Nacional[4:129]
Nacional <- as.numeric(Nacional)
Nacional <- as.vector(Nacional)
cNacional <- cumsum(Nacional)

Medidas de tendencia central

mean(Nacional)

## [1] 1876.889

median(Nacional)

## [1] 1154

var(Nacional)

## [1] 4082694

sd(Nacional)

## [1] 2020.568

Series de tiempo

plot(Nacional)

plot(log((Nacional)))

x <- log(Nacional)
dif1.x <- diff(x)
plot(dif1.x)

time.ts <- ts(data=Nacional,start=c(2020,2), end = c(2021,7),frequency = 447)
plot(time.ts)

Reporte de movilidad en Mexico.

movilidadmx <- ggplot(CM)+
  geom_line(aes(x=Fecha,y=Comercio_y_recreacion,colour="Comercio y Recreacion"))+
    geom_line(aes(x=Fecha,y=Supermercado_y_farmacia,colour="Supermercado y Farmacia"))+
    geom_line(aes(x=Fecha,y=Parques,colour="Parques"))+
    geom_line(aes(x=Fecha,y=Estacion_de_transito,colour="Estacion de transito"))+
    geom_line(aes(x=Fecha,y=Lugares_de_trabajo,colour="Lugares de trabajo"))+
    geom_line(aes(x=Fecha,y=Residencia,colour="Residencia"))+
    labs(title="Reporte de movilidad en Mexico",x="Fecha",y="Procentaje de cambio de movilidad")

ggplotly(movilidadmx)

En el gráfico anterior podemos observar una relacion entre contagios y el lugar en el que se produce la movilidad, podemos observar un claro descenso de contagios en parques, mientras que en actividades que involucran el lugar de trabajo y estaciones de transito se puede observar un aumento de contagios desde el mes de enero hasta el mes de octubre.

De igual manera las salidas relacionadas a compras en supermercados y farmacias tambien representan un aumento considerable en los contagios por covid-19, mientras que los contagios por estar en casa se an estado manteniendo bajos con ligeras variaciones en lo que va del año.

Se puede observar que las graficas tienen un comportamiento similar, esto se debe, a los eventos que transcurren en ciertas fechas, entre elloss estarían los días festivos, las costumbres y las tradiciones. Sin embargo, tambien hay otras varientes que producen este comportamiento ya sea una nueva ola de contagios o la nueva noticia acerca de que el Covid-19 ha mutado por los cuan han salido a la luz nuevas variantes de este, que son mas resistentes a la vacunas y su efecto es mas severo sobre el organismo del ser humano.