Actividad 2

1. Cargar los datos del DENUE

library(tidyverse)
denue <- read_csv("denue.csv",
                  locale = locale(encoding = "ISO-8859-1"))
## Rows: 148560 Columns: 42
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (33): clee, nom_estab, raz_social, nombre_act, per_ocu, tipo_vial, nom_v...
## dbl  (9): id, codigo_act, numero_ext, numero_int, cod_postal, cve_ent, telef...
## 
## ℹ 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.
denue_resumen <- denue %>%
  select(per_ocu, nombre_act, municipio) %>%
  head(20)
knitr::kable(denue_resumen, 
             caption = "Muestra de Establecimientos (INEGI)",
             col.names = c("Personas Ocupadas", "Actividad Comercial", "Municipio"))
Muestra de Establecimientos (INEGI)
Personas Ocupadas Actividad Comercial Municipio
0 a 5 personas Camaronicultura y acuicultura de otros crustáceos en agua salada Aldama
0 a 5 personas Camaronicultura y acuicultura de otros crustáceos en agua salada Aldama
6 a 10 personas Camaronicultura y acuicultura de otros crustáceos en agua salada Aldama
0 a 5 personas Piscicultura en agua dulce Abasolo
6 a 10 personas Piscicultura en agua dulce Abasolo
0 a 5 personas Piscicultura en agua dulce Soto la Marina
0 a 5 personas Piscicultura en agua dulce Abasolo
11 a 30 personas Camaronicultura y acuicultura de otros crustáceos en agua salada Aldama
0 a 5 personas Piscicultura en agua dulce Altamira
6 a 10 personas Servicios de fumigación agrícola Valle Hermoso
11 a 30 personas Servicios relacionados con el aprovechamiento forestal Nuevo Laredo
0 a 5 personas Pesca y captura de peces, crustáceos, moluscos y otras especies Altamira
31 a 50 personas Pesca y captura de peces, crustáceos, moluscos y otras especies Altamira
0 a 5 personas Otros servicios relacionados con la agricultura El Mante
11 a 30 personas Pesca y captura de peces, crustáceos, moluscos y otras especies Altamira
11 a 30 personas Pesca y captura de peces, crustáceos, moluscos y otras especies San Fernando
0 a 5 personas Pesca y captura de peces, crustáceos, moluscos y otras especies Tampico
0 a 5 personas Despepite de algodón Río Bravo
0 a 5 personas Pesca y captura de peces, crustáceos, moluscos y otras especies Tampico
0 a 5 personas Piscicultura en agua dulce Abasolo