Actividad Evaluación

# Este bloque solo prepara los datos, no muestra nada en el reporte
library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.2.0     ✔ readr     2.1.6
## ✔ forcats   1.0.1     ✔ stringr   1.6.0
## ✔ ggplot2   4.0.2     ✔ tibble    3.3.1
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.2
## ✔ purrr     1.2.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(dplyr)
library(knitr)
library(ggplot2)

# Nota: Asegúrate de que el CSV esté en la misma carpeta que este archivo .Rmd
setwd("~/Practicas")
denue <- read.csv("denue_28_.csv", fileEncoding = "Latin1")

denue_procesado <- denue %>%
  mutate(tipo_empresa = case_when(
    per_ocu %in% c("0 a 5 personas", "6 a 10 personas") ~ "Microempresa",
    per_ocu %in% c("11 a 30 personas", "31 a 50 personas") ~ "Pequeña empresa",
    per_ocu %in% c("51 a 100 personas", "101 a 250 personas") ~ "Mediana empresa",
    per_ocu == "251 y más personas" ~ "Grande empresa",
    TRUE ~ "No especificado"
  ))

kable(head(denue_procesado, 10), caption = "Muestra de los primeros 10 registros")

Muestra de los primeros 10 registros
id	clee	nom_estab	raz_social	codigo_act	nombre_act	per_ocu	tipo_vial	nom_vial	tipo_v_e_1	nom_v_e_1	tipo_v_e_2	nom_v_e_2	tipo_v_e_3	nom_v_e_3	numero_ext	letra_ext	numero_int	letra_int	tipo_asent	nomb_asent	cod_postal	cve_ent	entidad	cve_mun	municipio	cve_loc	localidad	ageb	manzana	telefono	correoelec	tipoUniEco	latitud	longitud	fecha_alta	tipo_empresa
8203497	28002112512000023000000000U5	7 ADELANTE AGRICULTORES	7 ADELANTE AGRICULTORES S DE SS	112513	Camaronicultura y acuicultura de otros crustáceos en agua salada	0 a 5 personas	CALLE	Sebastián Lerdo de Tejada	CALLE	Xicoténcatl	CALLE	Ninguno	CALLE	Reforma	23	SN	NA		COLONIA	ZONA CENTRO	89670	28	Tamaulipas	2	Aldama	1	Aldama	0456	3	NA		Fijo	22.91579	-98.07725	2019-11	Microempresa
8011852	28002114119000503000000000U8	ACUACAM	ACUACAM SA DE CV	112513	Camaronicultura y acuicultura de otros crustáceos en agua salada	0 a 5 personas	CALLE	CAMINO AL EJIDO PRESITAS	OTRO(ESPECIFIQUE)	NINGUNO	OTRO(ESPECIFIQUE)	NINGUNO	OTRO(ESPECIFIQUE)	NINGUNO	0	SN	NA		EJIDO	LA PRESITA	NA	28	Tamaulipas	2	Aldama	1	Aldama	0441	7	NA		Fijo	22.92367	-98.07561	2019-11	Microempresa
6182392	28002112511000063000000000U3	ACUACULTIVO EL TORAL	ACUACULTIVO EL TORAL SA DE CV	112513	Camaronicultura y acuicultura de otros crustáceos en agua salada	6 a 10 personas	CALLE	NINGUNO	OTRO(ESPECIFIQUE)	NINGUNO	OTRO(ESPECIFIQUE)	NINGUNO	OTRO(ESPECIFIQUE)	NINGUNO	0	DOMICILIO CONOCIDO	NA		RANCHO	EL RINCON DEL TORAL	NA	28	Tamaulipas	2	Aldama	146	Morón	0653	1	NA		Fijo	22.73246	-97.86541	2011-03	Microempresa
8178768	28001112512000062110000000U5	ACUACULTIVOS EL PORVENIR	ACUACULTIVOS EL PORVENIR SA DE CV	112515	Piscicultura en agua dulce	0 a 5 personas	CALLE	Ninguno	CALLE	Ninguno	CALLE	Ninguno	CALLE	Ninguno	0	SN	0		LOCALIDAD	GUIA EL PORVENIR	87760	28	Tamaulipas	1	Abasolo	2	Abasolo (Abasolito)	0406	1	NA		Fijo	24.04349	-98.38367	2019-11	Microempresa
8789487	28001112512000041111000000U9	ACUACULTIVOS FAZ MORA	ACUACULTIVOS FAZ MORA S DE RL MI	112515	Piscicultura en agua dulce	6 a 10 personas	OTRO(ESPECIFIQUE)	RIO SOTO LA MARINA	CALLE	GUADALUPE VICTORIA	CALLE	GENERAL FRANCISCO VILLA	CALLE	LICENCIADO BENITO JUAREZ	0	SN	NA		LOCALIDAD	GUIA DEL PORVENIR	NA	28	Tamaulipas	1	Abasolo	19	Guía del Porvenir	0406	800	8342660492		Fijo	23.99640	-98.42889	2019-11	Microempresa
8443612	28037112512000033011000000U0	ACUACULTIVOS LA JOLLA SP DE RL	ACUACULTIVOS LA JOLLA S DE RL DE CV	112515	Piscicultura en agua dulce	0 a 5 personas	OTRO(ESPECIFIQUE)	CAMINO RANCHO EL WATEKE	OTRO(ESPECIFIQUE)	EJIDO TRES DE ABRIL CAMINO RANCHO EL WATEKE	OTRO(ESPECIFIQUE)	EJIDO TRES DE ABRIL CAMINO RANCHO EL WATEKE	OTRO(ESPECIFIQUE)	EJIDO TRES DE ABRIL CAMINO RANCHO EL WATEKE	0	DOMICILIO CONOCIDO	NA		RANCHO	EL WATEKE	NA	28	Tamaulipas	37	Soto la Marina	1033	Wateke	0894	800	NA	SERVICIORC@HOTMAIL.COM	Fijo	23.74997	-97.97893	2019-11	Microempresa
6182124	28001112512000033001000000U6	ACUACULTIVOS SANTO TOMAS S.P.R. DE RL ACUAMEX	ACUACULTIVOS SANTO TOMAS S DE RL DE CV	112515	Piscicultura en agua dulce	0 a 5 personas	CALLE	RIO SOTO LA MARINA	CALLE	RIO PURIFICACION	CALLE	RIO PILON	CALLE	RIO TAMESI	0	SN	0	SN	EJIDO	NUEVO DOLORES	87760	28	Tamaulipas	1	Abasolo	1	Abasolo	0586	3	NA	ACUAMEX@HOTMAIL.COM	Fijo	24.05728	-98.39247	2010-07	Microempresa
10904954	28002112513000021000000000U7	ACUACULTURA TECNIFICADA DE TAMAULIPAS	ACUACULTURA TECNIFICADA DE TAMAULIPAS SA DE CV	112513	Camaronicultura y acuicultura de otros crustáceos en agua salada	11 a 30 personas	CARRETERA	ALDAMA	OTRO(ESPECIFIQUE)	NINGUNO	OTRO(ESPECIFIQUE)	NINGUNO	OTRO(ESPECIFIQUE)	NINGUNO	0	DOMICILIO CONOCIDO	NA		RANCHO	EL ACUATAM	NA	28	Tamaulipas	2	Aldama	1079	ACUATAM	0371	800	NA		Fijo	22.62635	-97.90228	2024-11	Pequeña empresa
8639531	28003112512000012000000000U6	ACUICULTURA SIN NOMBRE		112515	Piscicultura en agua dulce	0 a 5 personas	CALLE	Ninguno	CALLE	Ninguno	CALLE	Ninguno	CALLE	Ninguno	0	CONOCIDO	NA		EJIDO	MARTIN A MARTINEZ	87140	28	Tamaulipas	3	Altamira	687	Martín A. Martínez (Mayorazgo)	0152	800	8333038620		Fijo	22.34864	-97.99940	2019-11	Microempresa
11801842	28040115111000032000000000U4	AEROFUMIGACIONES TOVAR		115111	Servicios de fumigación agrícola	6 a 10 personas	CALLE	NINGUNO	CALLE	NINGUNO	CALLE	NINGUNO	PRIVADA	NINGUNO	0	SN	0		PARQUE INDUSTRIAL	VALLE HERMOSO	87505	28	Tamaulipas	40	Valle Hermoso	574	Valle Hermoso 89 [Parque Industrial]	0654	1	NA	JETSAERO@HOTMAIL.COM	Fijo	25.61944	-97.81741	2025-04	Microempresa

conteo_mun <- denue_procesado %>%
  count(municipio, name = "Total") %>%
  arrange(desc(Total))

kable(head(conteo_mun, 10), col.names = c("Municipio", "Establecimientos"))

Municipio	Establecimientos
Reynosa	26156
Matamoros	24969
Tampico	15655
Victoria	15576
Nuevo Laredo	14962
Altamira	8889
Ciudad Madero	7167
Río Bravo	6454
El Mante	5623
Valle Hermoso	4174

dist_tipo <- denue_procesado %>%
  count(tipo_empresa) %>%
  mutate(Porcentaje = round((n / sum(n)) * 100, 2)) %>%
  arrange(desc(n))

kable(dist_tipo, col.names = c("Tipo de Empresa", "Total", "% de Participación"))

Tipo de Empresa	Total	% de Participación
Microempresa	138250	93.06
Pequeña empresa	8287	5.58
Mediana empresa	1556	1.05
Grande empresa	467	0.31

ggplot(dist_tipo, aes(x = reorder(tipo_empresa, -n), y = n, fill = tipo_empresa)) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  geom_text(aes(label = paste0(Porcentaje, "%")), vjust = -0.5, fontface = "bold") +
  labs(title = "Predominancia por Tamaño de Empresa",
       subtitle = "Estado de Tamaulipas",
       x = "Categoría", y = "Cantidad de Unidades") +
  theme_minimal()

Actividad Evaluación

Sadrach Abimelec Zárate Velázquez

2026-03-12