U1A13

Portada

Importamos los datos

library(readr)
library(DT)
DatosRegMexMov <- read_csv("~/Probabilidad y Estadistica/DatosRegMexMov.csv")

## Parsed with column specification:
## cols(
##   country_region_code = col_character(),
##   country_region = col_character(),
##   sub_region_1 = col_character(),
##   sub_region_2 = col_logical(),
##   metro_area = col_logical(),
##   iso_3166_2_code = col_character(),
##   census_fips_code = col_logical(),
##   date = col_date(format = ""),
##   retail_and_recreation_percent_change_from_baseline = col_double(),
##   grocery_and_pharmacy_percent_change_from_baseline = col_double(),
##   parks_percent_change_from_baseline = col_double(),
##   transit_stations_percent_change_from_baseline = col_double(),
##   workplaces_percent_change_from_baseline = col_double(),
##   residential_percent_change_from_baseline = col_double()
## )

datatable(DatosRegMexMov)

Graficas

fson <- (DatosRegMexMov[6051:6293,8:14]) 
names(fson)

## [1] "date"                                              
## [2] "retail_and_recreation_percent_change_from_baseline"
## [3] "grocery_and_pharmacy_percent_change_from_baseline" 
## [4] "parks_percent_change_from_baseline"                
## [5] "transit_stations_percent_change_from_baseline"     
## [6] "workplaces_percent_change_from_baseline"           
## [7] "residential_percent_change_from_baseline"

grafica aumento-decremento zona recreativa

plot(fson$residential_percent_change_from_baseline, fson$retail_and_recreation_percent_change_from_baseline, xlab="Zona recidencial", ylab = "Zona de recreacion", col = "orange")

Grafica situación (Parques)

plot(fson$residential_percent_change_from_baseline, fson$parks_percent_change_from_baseline, xlab="Residencial", ylab = "Parques", col = "green")

Grafica situación (trabajo)

plot(fson$residential_percent_change_from_baseline, fson$workplaces_percent_change_from_baseline, xlab="Residencial", ylab = "Trabajos", col = "black")

grafica situación (supermercados-farmacias)

plot(fson$residential_percent_change_from_baseline, fson$grocery_and_pharmacy_percent_change_from_baseline, xlab="Residencial", ylab = "Supermercados y farmacias",col = "blue")

grafica situación (transporter publico)

plot(fson$residential_percent_change_from_baseline, fson$transit_stations_percent_change_from_baseline, xlab="Residencial", ylab = "Transporte", col = "red")

Analicemos las graficas

Valor de referencia

Valor de referencia

Grafica de movilidad en Sonora

Datos de Sonora

Acontecimiento entre el 3 de enero al 6 de febrero

Acontecimiento

Analisis de visitas a parques

Analisis de parques

Comparativa con años anteriores

Comparativa

Una simple grafica

Grafica movilidad años pasados

Analisis zonas residenciales

Analisis residencial