In nicolasrattor/sindicatoscl: datos de sindicatos activos y en receso en Chile entre 1920 y 2021

sindicatoscl

Paquete R para acceder a microdato de sindicatos activos y en receso en Chile, proveniente de registro administrativo de la Dirección del Trabajo.

Instalar y cargar paquete

El paquete no se encuentra en la CRAN ni ha sido enviado, por lo que debe instalarse la versión en desarrollo desde GitHub.

install.packages("devtools")
devtools::install_github("nicolasrattor/sindicatoscl")

library(sindicatoscl)

Además, se cargan otros paquetes para la manipulación de datos:

library(dplyr)
library(ggplot2)
library(hrbrthemes)

Uso del paquete

Obtener microdatos de sindicatos

El objetivo principal del paquete es disponer de una dataframe con el listado de todos los sindicatos activos y en receso en Chile y, sus principales características.

El dataframe sindicatos contiene r nrow(sindicatos) observaciones para r ncol(sindicatos) variables:

data_frame(variables=names(sindicatos),
           descripción=c("Región de la dirección a la que se asocia el sindicato. Suele ser la de la casa matriz de la empresa (16 regiones)",
                        "Identificador del sindicato",
                        "Nombre del sindicato",
                        "Estado del sindicato: ACTIVO, RECESO, DISUELTO, CADUCADO O ELIMINADO",
                        "Tipo de sindicato: EMPRESA, ESTABLECIMIENTO, INDEPENDIENTE, INTER EMPRESA o TRANSITORIO",
                        "Dirección a la que se asocia el sindicato. Suele ser la de la casa matriz de la empresa",
                        "Número de socios de sindicato registrados en último trámite",
                        "Número de socias de sindicato registrados en último trámite",
                        "Fecha de constitución del sindicato",
                        "Fecha de elección de directiva. Se usa como proxy de último trámite",
                        "Nombre oficina de Inspección del Trabajo en que se hizo la constitución del sindicato",
                        "Nombre de la empresa",
                        "Rut de la empresa o de todas las empresas en las que existe el sindicato (caso interempresas)",
                        "Clasificador de Actividad Económica de la empresa",
                        "Número de socios y socias de sindicato registrados en último trámite"
                         )) %>% 
  knitr::kable()  %>% 
  kableExtra::column_spec(1:2, width = "10cm")

Acá las primeras 5 filas y columnas de sindicatos

sindicatos

knitr::kable(head(sindicatos[,1:4]))

Pasar la data al nivel empresa

En vez de colocar el foco en los sindicatos, puede ser de interés centrarse en las empresas con sindicatos y sus características. Para eso, hay que crear un nuevo conjunto de datos con la función empresas_sindicatos_activos(), la que mantiene solo a los sindicatos activos y del nivel empresa o establecimiento, y agrupa los datos por empresa.

empresas <- empresas_sindicatos_activos()

El número de observaciones de la data resultante es igual al número de empresas con sindicatos activos en Chile (r nrow(empresas)). La nueva data además agrega el número de sindicatos existentes en cada empresa, el total de afiliados y el tamaño promedio de los sindicatos en cada empresa. El rut de la empresa es el rut real, por lo que la información puede vincularse a otras fuentes de datos de empresas.

head(empresas) %>% knitr::kable()

Con estos datos se puede construir un indicador simple de fragmentación sindical: en promedio existen 1,53 sindicatos por empresa y en más del 75% de las empresas con sindicato solamente existe un sindicato.

summary(empresas$sindicatos)

Este indicador se puede obtener para cada sector económico utilizando los datos del Servicio de Impuestos Internos (ver viñeta SII)

Serie histórica sindicatos constituidos

serie <- constitucion_anual()
plot(serie$ano,serie$sindicatos,type = "l")

serie %>% 
  ggplot(aes(ano, sindicatos)) + 
  geom_line() +
  labs(x = "año", y = "sindicatos",
       title = "Número de sindicatos constituidos cada año") +
  theme_ipsum()

ggsave(
  plot = last_plot(),
  filename = "man/figures/constituidos.png",
  device = "png",
  dpi = "retina",
  units = "cm",
  width = 33,
  height = 20
)

Serie histórica activos

serie <- activos_historico(desde=2020,hasta=2022)
serie$fecha <- lubridate::make_date(year=serie$ano,month=serie$mes)
plot(serie$fecha,serie$sindicatos,type = "l")

serie %>% 
  ggplot(aes(fecha, sindicatos)) + 
  geom_line() +
  labs(x = "año", y = "sindicatos",
       title = "Número de sindicatos activos cada mes desde 2020") +
  theme_ipsum()

ggsave(
  plot = last_plot(),
  filename = "man/figures/activos.png",
  device = "png",
  dpi = "retina",
  units = "cm",
  width = 33,
  height = 20
)

Consultar sindicatos activos por fecha

nrow(activos_en(ano=1990,mes=1))
head(activos_en(ano=1990,mes=1)[,c(1:4)])

Consultar por nombre sindicato o empresa

buscar_sindicatos(empresa_buscada="walmart",sindicato_buscado="lider")[,c(2,3)]
buscar_sindicatos(empresa_buscada="codelco",sindicato_buscado="")[,c(2,3)]
buscar_sindicatos(empresa_buscada="",sindicato_buscado="casa particular")[,c(2,3)]

Sobre los datos usados

Registros administrativos de acceso público de la Dirección del Trabajo. Disponibles para descarga en: https://tramites.dirtrab.cl/VentanillaTransparencia/Transparencia/RerporteRRLLOrg.aspx. Los datos utilizados en el paquete fueron descargados el r "27 de junio de 2022".