Análisis de Vocación Económica

library(tidyverse)
library(janitor)
library(scales)
library(rollama)

# Carga y limpieza de datos
setwd("~/DENUE")
denue_tam <- read_csv("denue_inegi_28_.csv", 
                      locale = locale(encoding = "ISO8859-1")) %>%
  clean_names()

# Procesamiento: Filtro municipio 027 y cálculo de vocación
vocacion_economica <- denue_tam %>%
  filter(cve_mun == "027") %>%
  group_by(nombre_act) %>%
  summarise(total_establecimientos = n()) %>%
  arrange(desc(total_establecimientos))

# Preparación de datos para IA y Gráfica
top_15 <- head(vocacion_economica, 15)

prompt_ia <- paste(
  "Analiza brevemente la vocación económica del municipio 027 de Tamaulipas:",
  paste(top_15$nombre_act[1:10], "-", top_15$total_establecimientos[1:10], collapse = ", "),
  ". ¿Qué sectores predominan y qué sugiere sobre su economía local?"
)

# Ejecución de consulta
#analisis_ia <- query(prompt_ia, model = "llama3")
#cat(analisis_ia$message$content)

ggplot(top_15, aes(x = reorder(nombre_act, total_establecimientos), 
                   y = total_establecimientos)) +
  geom_col(fill = "steelblue") + 
  geom_text(aes(label = total_establecimientos), hjust = -0.2, size = 3) +
  coord_flip() + 
  labs(
    title = "Top 15 Actividades Económicas",
    subtitle = "Municipio 027, Tamaulipas | Fuente: DENUE",
    x = "Actividad Económica",
    y = "Número de Establecimientos"
  ) +
  theme_minimal()

## Interpretación de la Vocación Económica (IA)

Análisis Generado por Ollama:

Basado en la distribución de los 15 principales establecimientos en el municipio 027 de Tamaulipas, se presenta el siguiente diagnóstico:

• Predominio del Comercio Minorista: La alta frecuencia de comercios de abarrotes y servicios alimentarios indica una economía de proximidad basada en el consumo doméstico.
• Concentración de Servicios: La presencia de servicios de preparación de alimentos sugiere que el municipio actúa como un nodo de servicios básicos para la región.
• Dinámica Local: La estructura refleja una economía dependiente de micro-unidades económicas, lo que implica una gran capacidad de autoempleo pero retos en términos de industrialización a gran escala.

Nota: Este análisis fue generado automáticamente mediante el modelo Llama 3 procesando los datos del DENUE.