Este es un análisis de movilidad urbana y contaminación atmosférica para Sonora

Importar librerias y datos

setwd("~/TALLERIAITESCA") # Establecer el directorio de trabajo (working directory)
library(pacman)
p_load("readr","DT","tidyverse","base64enc", "htmltools", "mime", "xfun", "prettydoc", "knitr")
DatosMobilityReport <- read_csv("sonora.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(),
##   iso_3166_2_code = col_character(),
##   census_fips_code = col_logical(),
##   date = col_character(),
##   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()
## )

Descarga de datos y código

  • dar click en download para descargar el archivo .rmd que contiene el código
xfun::embed_file("TALLERIA.rmd")
Download TALLERIA.rmd

Visualizar datos

En tabla Interactiva de datos

De esta base de datos globales fueron extraídos los correspondientes para México y Sonora

#para desplegar la tabla de datos
datatable(DatosMobilityReport)

Transformar datos

Creación de un data frame

#FechaMR =