14.11 Mapas del mercado de trabajo.

El código carga las librerías sp, sf y tmap. Luego, se lee un archivo shapefile con información geográfica y se utiliza la función ‘inner_join’ para unirlo con las estimaciones de la encuesta previamente calculadas. Posteriormente, se definen los puntos de corte para la generación de los intervalos de clase en los mapas de cada variable de interés (ocupados, desocupados e inactivos) y se asignan a las variables ‘brks_ocupado’, ‘brks_desocupado’ y ‘brks_inactivo’, respectivamente.

library(sp)
library(sf)
library(tmap)
ShapeSAE <- read_sf("Shape/DOM_dam2.shp") %>% 
  rename(dam2 = id_dominio) %>% 
  mutate(dam2 = str_pad(
                 string = dam2,
                 width = 5,
                 pad = "0"
               ))

P1_empleo <- tm_shape(ShapeSAE %>%
                           inner_join(estimaciones))
brks_ocupado <- seq(0.2,0.8,0.1)
brks_desocupado <- seq(0,0.3,0.05)
brks_inactivo <- seq(0.15,0.65, 0.1)

Ocupado

Este código está creando un mapa de la variable “Ocupado” utilizando la función tm_fill() de la librería tmap. Los valores de la variable se clasifican en diferentes categorías utilizando la función breaks, y se establece un título para la leyenda del mapa con el argumento title. Se utiliza una paleta de colores llamada “-Blues” para representar las diferentes categorías de la variable en el mapa. La función tm_layout se utiliza para establecer algunas características del diseño del mapa, como el tamaño de la leyenda, el tamaño de la fuente, y la relación de aspecto del mapa. Finalmente, el mapa se guarda en la variable Mapa_ocupado.

Mapa_ocupado <-
  P1_empleo +
  tm_fill("Ocupado_Bench",
          breaks = brks_ocupado,
          title = "Ocupado",
          palette = "-Blues") +
  tm_layout(
    legend.only = FALSE,
     legend.height = -0.95,
     legend.width = -0.95,
    asp = 2.1,
    legend.text.size = 3,
    legend.title.size = 3
  )
Mapa_ocupado

Desocupado

Este código utiliza la función tm_fill() de la librería tmap para crear un mapa temático del indicador de “desocupado” a nivel de las áreas geográficas definidas en el archivo de polígonos ShapeSAE. La paleta de colores utilizada para representar los valores del indicador es la “YlOrRd”. Se especifican los mismos parámetros de tm_layout() que en el mapa anterior para definir el diseño general del mapa.

Mapa_desocupado <-
  P1_empleo + tm_fill(
    "Desocupado_Bench",
    breaks = brks_desocupado,
    title =  "Desocupado",
    palette = "YlOrRd"
  ) +  tm_layout(
    legend.only = FALSE,
     legend.height = -0.95,
     legend.width = -0.95,
    asp = 2.1,
    legend.text.size = 3,
    legend.title.size = 3
  )
Mapa_desocupado

Inactivo

Este código genera un mapa temático de la variable “Inactivo” utilizando la librería tmap. Primero se carga el archivo de shapefile y se hace una unión con las estimaciones previamente calculadas. Luego se utiliza la función tm_fill() para especificar que se desea utilizar el valor de la variable “Inactivo” para el relleno del mapa. Se definen los intervalos de la paleta de colores con la variable “brks_inactivo” y se especifica el título del mapa con la opción “title”. Finalmente, se configura el diseño del mapa con la función tm_layout(), donde se ajustan parámetros como el tamaño del texto y de la leyenda, y se establece el aspecto del mapa en 1.5 para una mejor visualización.

Mapa_Inactivo <-
  P1_empleo + tm_fill(
      "Inactivo_Bench",
    title =  "Inactivo",
    breaks = brks_inactivo,
    palette = "YlGn"
  ) +  tm_layout(
    legend.only = FALSE,
     legend.height = -0.95,
     legend.width = -0.95,
    asp = 2.1,
    legend.text.size = 3,
    legend.title.size = 3
  )
Mapa_Inactivo