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
library(knitr)

setwd("~/RMarkDown/TSTI2026")

LTI_2026 <- read.csv("denue_28.csv")

Tamaulipas <- LTI_2026 %>% select(per_ocu, nombre_act, municipio)

kable(head(Tamaulipas, 10), 
      caption = "Datos de Ocupación en Tamaulipas (Primeras 10 filas)",
      col.names = c("Personal Ocupado", "Actividad", "Municipio"))
Datos de Ocupación en Tamaulipas (Primeras 10 filas)
Personal Ocupado Actividad Municipio
11 a 30 personas Camaronicultura Aldama
11 a 30 personas Piscicultura y otra acuicultura, excepto camaronicultura Abasolo
11 a 30 personas Camaronicultura Aldama
11 a 30 personas Camaronicultura Ciudad Madero
11 a 30 personas Camaronicultura Ciudad Madero
0 a 5 personas Otros servicios relacionados con la agricultura Tampico
11 a 30 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
0 a 5 personas Servicios de fumigación agrícola Nuevo Laredo
31 a 50 personas Beneficio de productos agrícolas Matamoros