Río Bravo – Análisis con datos del DENUE INEGI

Descripción del ejercicio

Este documento presenta el trabajo realizado en RStudio con la base de datos del DENUE INEGI, enfocado en el municipio de Río Bravo, Tamaulipas. Incluye lectura de la base, filtrado por municipio, exportación e importación para tratamiento, y un mapa que muestra la distribución de establecimientos.

Leer la Base de Datos del DENUE INEGI

library(readr)
# Ajustamos la ruta y el nombre correcto del archivo
denue <- read_csv("C:/Users/elara/Downloads/Denuee/denue_rio_bravo.csv")

## Rows: 0 Columns: 42
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (42): id, clee, nom_estab, raz_social, codigo_act, nombre_act, per_ocu, ...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

head(denue)

## # A tibble: 0 × 42
## # ℹ 42 variables: id <chr>, clee <chr>, nom_estab <chr>, raz_social <chr>,
## #   codigo_act <chr>, nombre_act <chr>, per_ocu <chr>, tipo_vial <chr>,
## #   nom_vial <chr>, tipo_v_e_1 <chr>, nom_v_e_1 <chr>, tipo_v_e_2 <chr>,
## #   nom_v_e_2 <chr>, tipo_v_e_3 <chr>, nom_v_e_3 <chr>, numero_ext <chr>,
## #   letra_ext <chr>, edificio <chr>, edificio_e <chr>, numero_int <chr>,
## #   letra_int <chr>, tipo_asent <chr>, nomb_asent <chr>, tipoCenCom <chr>,
## #   nom_CenCom <chr>, num_local <chr>, cod_postal <chr>, cve_ent <chr>, …

library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'
## 
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

denue_rio_bravo <- denue %>% filter(municipio == "Río Bravo")
nrow(denue_rio_bravo)

## [1] 0

head(denue_rio_bravo)

## # A tibble: 0 × 42
## # ℹ 42 variables: id <chr>, clee <chr>, nom_estab <chr>, raz_social <chr>,
## #   codigo_act <chr>, nombre_act <chr>, per_ocu <chr>, tipo_vial <chr>,
## #   nom_vial <chr>, tipo_v_e_1 <chr>, nom_v_e_1 <chr>, tipo_v_e_2 <chr>,
## #   nom_v_e_2 <chr>, tipo_v_e_3 <chr>, nom_v_e_3 <chr>, numero_ext <chr>,
## #   letra_ext <chr>, edificio <chr>, edificio_e <chr>, numero_int <chr>,
## #   letra_int <chr>, tipo_asent <chr>, nomb_asent <chr>, tipoCenCom <chr>,
## #   nom_CenCom <chr>, num_local <chr>, cod_postal <chr>, cve_ent <chr>, …

# Exportar e importar nuevamente
write_csv(denue_rio_bravo, "C:/Users/elara/Downloads/Denuee/denue_rio_bravo.csv")
denue_rio_bravo2 <- read_csv("C:/Users/elara/Downloads/Denuee/denue_rio_bravo.csv")

## Rows: 0 Columns: 42
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (42): id, clee, nom_estab, raz_social, codigo_act, nombre_act, per_ocu, ...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

head(denue_rio_bravo2)

## # A tibble: 0 × 42
## # ℹ 42 variables: id <chr>, clee <chr>, nom_estab <chr>, raz_social <chr>,
## #   codigo_act <chr>, nombre_act <chr>, per_ocu <chr>, tipo_vial <chr>,
## #   nom_vial <chr>, tipo_v_e_1 <chr>, nom_v_e_1 <chr>, tipo_v_e_2 <chr>,
## #   nom_v_e_2 <chr>, tipo_v_e_3 <chr>, nom_v_e_3 <chr>, numero_ext <chr>,
## #   letra_ext <chr>, edificio <chr>, edificio_e <chr>, numero_int <chr>,
## #   letra_int <chr>, tipo_asent <chr>, nomb_asent <chr>, tipoCenCom <chr>,
## #   nom_CenCom <chr>, num_local <chr>, cod_postal <chr>, cve_ent <chr>, …