-
Notifications
You must be signed in to change notification settings - Fork 0
/
sii.Rmd
83 lines (63 loc) · 1.96 KB
/
sii.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
---
title: "Servicio de Impuestos Internos (SII)"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{sii}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
```
```{r setup, message=FALSE, warning=FALSE}
library(sindicatoscl)
library(magrittr)
library(dplyr)
```
El paquete además dispone una `dataframe` con información de empresas correspondiente al Servicio de Impuestos Internos (SII) de Chile. Este dato permite tener el número de trabajadores y rubro de actividad de cada empresa en la que hay sindicatos.
```{r}
head(sii) %>% knitr::kable()
names(sii)
```
## Agregar datos del Servicio de Impuestos Internos
Se puede hacer a mano u ocupar una función para agrega la información de empresas a la data de sindicatos.
```{r}
datos <- sii_agregar()
head(datos) %>% knitr::kable()
names(datos)
```
Así se distribuyen por sector económico los sindicatos
```{r}
knitr::kable(
dplyr::mutate(
as.data.frame(
round(
prop.table(
table(datos$rubro_sii,useNA="ifany")),3)
),Freq=Freq*100
)
)
```
## Tasa sindicalización para cada empresa
tasa sindicalización = total_socis / nt_sii
Proporción de sindicatos con tasa de sindicalización válida
```{r}
nrow(datos[datos$tasa_sindicalizacion<=1&!is.na(datos$tasa_sindicalizacion),])/nrow(datos)
```
Resumen variable tasa de sindicalización
```{r}
summary(datos[datos$tasa_sindicalizacion<=1,]$tasa_sindicalizacion)
```
## Indicador de fragmentación sindical por sector económico
```{r}
empresas <- empresas_sindicatos_activos()
summary(empresas$sindicatos)
sectores <- sii_agregar() %>% group_by(rut_empresa) %>% summarise(rubro_sii=first(rubro_sii))
empresas <- merge(empresas,sectores,by="rut_empresa",all.x = TRUE)
empresas %>% group_by(rubro_sii) %>% summarise(fragmentacion=mean(sindicatos),
n=n()) %>%
arrange(-fragmentacion)
```