Se filtra la data a los sindicatos activos y de empresa o establecimiento. Luego se agregan variables del Servicio de Impuestos Internos relacionadas a ventas, número de trabajadores y actividad económica.
sii_agregar()Una data frame donde las filas son los sindicatos. Se agrega info de sector económico de empresa, ventas, número de trabajadores y tasa de sindicalización del sindicato en la empresa
datos <- sii_agregar()
table(datos$rubro_sii,useNA="ifany")
#>
#>
#> 0
#> ACTIVIDADES ARTISTICAS, DE ENTRETENIMIENTO Y RECREATIVAS
#> 97
#> ACTIVIDADES DE ALOJAMIENTO Y DE SERVICIO DE COMIDAS
#> 183
#> ACTIVIDADES DE ATENCION DE LA SALUD HUMANA Y DE ASISTENCIA SOCIAL
#> 206
#> ACTIVIDADES DE LOS HOGARES COMO EMPLEADORES; ACTIVIDADES NO DIFERENCIADAS DE LOS HOGARES
#> 0
#> ACTIVIDADES DE ORGANIZACIONES Y ORGANOS EXTRATERRITORIALES
#> 3
#> ACTIVIDADES DE SERVICIOS ADMINISTRATIVOS Y DE APOYO
#> 605
#> ACTIVIDADES FINANCIERAS Y DE SEGUROS
#> 156
#> ACTIVIDADES INMOBILIARIAS
#> 75
#> ACTIVIDADES PROFESIONALES, CIENTIFICAS Y TECNICAS
#> 205
#> ADMINISTRACION PUBLICA Y DEFENSA; PLANES DE SEGURIDAD SOCIAL DE AFILIACION OBLIGATORIA
#> 3
#> AGRICULTURA, GANADERIA, SILVICULTURA Y PESCA
#> 323
#> COMERCIO AL POR MAYOR Y AL POR MENOR; REPARACION DE VEHICULOS AUTOMOTORES Y MOTOCICLETAS
#> 381
#> CONSTRUCCION
#> 228
#> ENSEÑANZA
#> 909
#> EXPLOTACION DE MINAS Y CANTERAS
#> 217
#> INDUSTRIA MANUFACTURERA
#> 1352
#> INFORMACION Y COMUNICACIONES
#> 135
#> OTRAS ACTIVIDADES DE SERVICIOS
#> 362
#> SUMINISTRO DE AGUA; EVACUACION DE AGUAS RESIDUALES, GESTION DE DESECHOS Y DESCONTAMINACION
#> 50
#> SUMINISTRO DE ELECTRICIDAD, GAS, VAPOR Y AIRE ACONDICIONADO
#> 99
#> TRANSPORTE Y ALMACENAMIENTO
#> 689
#> Valor por Defecto
#> 10
#> COMERCIO AL POR MAYOR Y AL POR MENOR; REPARACION DE VEHICULOS AUTOMOTORES Y MOTO
#> 419
#> SUMINISTRO DE AGUA; EVACUACION DE AGUAS RESIDUALES, GESTION DE DESECHOS Y DESCON
#> 76
#> ADMINISTRACION PUBLICA Y DEFENSA; PLANES DE SEGURIDAD SOCIAL DE AFILIACION OBLIG
#> 16
#> ACTIVIDADES DE LOS HOGARES COMO EMPLEADORES; ACTIVIDADES NO DIFERENCIADAS DE LOS
#> 0
#> <NA>
#> 281
table(datos$ventas_sii,useNA="ifany")
#>
#> 1 2 3 4 5 6 7 8 9 10 11 12 13 <NA>
#> 554 62 47 81 72 132 231 354 497 684 1135 547 2403 281
nrow(datos[datos$tasa_sindicalizacion<=1&!is.na(datos$tasa_sindicalizacion),])
#> [1] 6398
summary(datos[datos$tasa_sindicalizacion<=1,]$tasa_sindicalizacion)
#> Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
#> 0.0000 0.0530 0.1636 0.2297 0.3571 1.0000 554