Profesiones mejor pagadas en México

Introducción

Este reporte presenta un análisis descriptivo de las profesiones mejor pagadas en México, incluyendo:

• Tabla estilizada con kableExtra
• Estadísticas descriptivas
• Gráfica con estilo limpio
• Navegación lateral (toc_float)

---

Datos

profesiones <- tibble(
  profesion = c(
    "Tecnologías de la Información y la Comunicación",
    "Medicina general",
    "Administración pública",
    "Ciencias políticas",
    "Construcción / Ingeniería Civil",
    "Electrónica / Automatización / Mecánico-eléctricas",
    "Arquitectura y urbanismo",
    "Mecánica y profesiones afines al trabajo metálico",
    "Desarrollo de software",
    "Derecho"
  ),
  ingreso_prom_mx = c(
    25761, 25732, 25678, 25288, 25259,
    25203, 24874, 24140, 24063, 23991
  )
)

profesiones %>% 
  kbl(col.names = c("Profesión", "Ingreso mensual (MXN)")) %>%
  kable_classic(full_width = F, html_font = "Arial")

Profesión	Ingreso mensual (MXN)
Tecnologías de la Información y la Comunicación	25761
Medicina general	25732
Administración pública	25678
Ciencias políticas	25288
Construcción / Ingeniería Civil	25259
Electrónica / Automatización / Mecánico-eléctricas	25203
Arquitectura y urbanismo	24874
Mecánica y profesiones afines al trabajo metálico	24140
Desarrollo de software	24063
Derecho	23991

---

Estadísticas descriptivas

profesiones %>%
  summarise(
    ingreso_min = min(ingreso_prom_mx),
    ingreso_max = max(ingreso_prom_mx),
    ingreso_promedio = round(mean(ingreso_prom_mx), 2),
    ingreso_mediano = median(ingreso_prom_mx)
  ) %>%
  kbl(col.names = c("Mínimo", "Máximo", "Promedio", "Mediana")) %>%
  kable_material(html_font = "Arial")

Mínimo	Máximo	Promedio	Mediana
23991	25761	24998.9	25231

---

Gráfica

ggplot(profesiones, aes(x = reorder(profesion, ingreso_prom_mx), y = ingreso_prom_mx)) +
  geom_col(fill = "#2C3E50") +
  coord_flip() +
  labs(
    title = "Profesiones mejor pagadas en México",
    x = "Profesión",
    y = "Ingreso promedio mensual (MXN)"
  ) +
  theme_minimal(base_family = "Arial") +
  theme(plot.title = element_text(size = 16, face = "bold"))

## Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
## not found in Windows font database
## Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
## not found in Windows font database
## Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): font family
## not found in Windows font database

## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database
## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database
## Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
## family not found in Windows font database

## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
## font family not found in Windows font database
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
## font family not found in Windows font database
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
## font family not found in Windows font database
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
## font family not found in Windows font database

---

Descarga de datos

Puedes usar este dataset en cualquier análisis estadístico o aplicación externa.

• Archivo CSV
  
• Archivo de imagen (gráfica)
  
• Archivo RMarkdown original

---