knitr::opts_chunk$set( collapse = TRUE, comment = "#>", message = FALSE, warning = FALSE )
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") # instalar paquete sólo si no está instalado devtools::install_github("nicolasrattor/sindicatoscl")
library(sindicatoscl)
Además, se cargan otros paquetes para la manipulación de datos:
library(dplyr) library(ggplot2)
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]))
Además se puede necesitar obtener rápidamente solamente a los sindicatos interempresa, solo a los del tipo empresa, solo a los de independientes o solo a los sindicatos activos.
Para eso llamar a las siguientes funciones y guardar en nuevo objeto
data2 <- sindicatos_empresas() data3 <- sindicatos_independientes() data4 <- sindicatos_interempresas() data5 <- sindicatos_activos()
Desde cada nuevo objeto se pueden hacer otras operaciones, como sumar el total de socios y socias de sindicatos activos, o contar el número de sindicatos activos.
sum(data5$total_socis) nrow(data5)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.