R/mercado-laboral.R

In endomer/enftr: Encuesta Nacional (Tradicional) De Fuerza de Trabajo (ENFT) en R

#' Población en edad de trabajar (PET)
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#'  variable \code{pet} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#'   enft <- ft_pet(enft)
#' }
ft_pet <- function(tbl, min_edad = 15) {
    tbl %>%
        dplyr::mutate(
            pet = dplyr::case_when(
                EFT_EDAD >= min_edad ~ 1,
                EFT_EDAD < min_edad ~ 0
            )
        )
}



#' Población ocupada
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{ocupado} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#'  enft <- ft_ocupado(enft)
#' }
ft_ocupado <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_pet(min_edad) %>%
        dplyr::mutate(
            ocupado = dplyr::case_when(
                EFT_TRABAJO_SEM_ANT == 1 ~ 1,
                EFT_TUVO_ACT_ECON_SEM_ANT == 1 ~ 1,
                EFT_CULTIVO_SEM_ANT == 1 ~ 1,
                EFT_ELAB_PROD_SEM_ANT == 1 ~ 1,
                EFT_AYUDO_FAM_SEM_ANT == 1 ~ 1,
                EFT_COSIO_LAVO_SEM_ANT == 1 ~ 1,
                pet == 1 ~ 0
            ),
            ocupado = dplyr::case_when(
                pet == 1 ~ ocupado
            )
        )
}



#' Población en condición de desempleo abierto
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{desempleo_abierto} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_desempleo_abierto(enft)
#' }
ft_desempleo_abierto <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_ocupado(min_edad) %>%
        dplyr::mutate(
            desempleo_abierto = dplyr::case_when(
                pet == 1 & EFT_BUSCO_TRAB_SEM_ANT == 1 ~ 1,
                pet == 1 & EFT_BUSCO_TRAB_MES_ANT == 1 ~ 1,
                ocupado == 1 ~ 0
            )
        )
}


#' Población censante en condición de desempleo abierto
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{desempleo_cesante_abierto} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_desempleo_cesante_abierto(enft)
#' }
ft_desempleo_cesante_abierto <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_desempleo_abierto(min_edad) %>%
        dplyr::mutate(
            desempleo_cesante_abierto = dplyr::case_when(
                desempleo_abierto == 1 & EFT_TRABAJO_ANTES == 1 ~ 1,
                desempleo_abierto == 1 ~ 0
            )
        )
}


#' Población nueva en condición de desempleo abierto
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{desempleo_nuevo_abierto} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_desempleo_nuevo_abierto(enft)
#' }
ft_desempleo_nuevo_abierto <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_desempleo_abierto(min_edad) %>%
        dplyr::mutate(
            desempleo_nuevo_abierto = dplyr::case_when(
                desempleo_abierto == 1 & EFT_TRABAJO_ANTES != 1 ~ 1,
                desempleo_abierto == 1 ~ 0
            )
        )
}


#' Población Económicamente Activa (PEA) abierta
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{pea_abierta} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_pea_abierta(enft)
#' }
ft_pea_abierta <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_ocupado(min_edad) %>%
        ft_desempleo_abierto(min_edad) %>%
        dplyr::mutate(
            pea_abierta = dplyr::case_when(
                ocupado == 1 ~ 1,
                desempleo_abierto == 1 ~ 1,
                pet == 1 ~ 0
            )
        )
}


#' Población en condición de desempleo ampliado
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{desempleo_ampliado} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_desempleo_ampliado(enft)
#' }
ft_desempleo_ampliado <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_desempleo_abierto(min_edad) %>%
        dplyr::mutate(
            desempleo_ampliado = dplyr::case_when(
                desempleo_abierto == 1 ~ 1,
                EFT_TIENE_COND_JORNADA == 1 ~ 1,
                ocupado == 1 ~ 0
            ),
            desempleo_ampliado = dplyr::case_when(
                pet == 1 ~ desempleo_ampliado
            )
        )
}


#' Población censante en condición de desempleo ampliado
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#'      variable \code{desempleo_cesante_ampliado} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_desempleo_cesante_ampliado(enft)
#' }
ft_desempleo_cesante_ampliado <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_desempleo_ampliado(min_edad) %>%
        dplyr::mutate(
            desempleo_cesante_ampliado = dplyr::case_when(
                desempleo_ampliado == 1 & EFT_TRABAJO_ANTES != 1 ~ 0,
                desempleo_ampliado == 1 ~ 1
            )
        )
}


#' Población nueva en condición de desempleo ampliado
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#'     variable \code{desempleo_nuevo_ampliado} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_desempleo_nuevo_ampliado(enft)
#' }
ft_desempleo_nuevo_ampliado <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_desempleo_ampliado(min_edad) %>%
        dplyr::mutate(
            desempleo_nuevo_ampliado = dplyr::case_when(
                desempleo_ampliado == 1 & EFT_TRABAJO_ANTES == 1 ~ 0,
                desempleo_ampliado == 1 ~ 1
            )
        )
}


#' Población Económicamente Activa (PEA) ampliada
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#'    variable \code{pea_ampliada} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_pea_ampliada(enft)
#' }
ft_pea_ampliada <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_ocupado(min_edad) %>%
        ft_desempleo_ampliado(min_edad) %>%
        dplyr::mutate(
            pea_ampliada = dplyr::case_when(
                ocupado == 1 ~ 1,
                desempleo_ampliado == 1 ~ 1,
                pet == 1 ~ 0
            )
        )
}


#' Población inactiva (No PEA)
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#'    variable \code{poblacion_inactiva} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_poblacion_inactiva(enft)
#' }
ft_poblacion_inactiva <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_pea_ampliada(min_edad) %>%
        dplyr::mutate(
            poblacion_inactiva = dplyr::case_when(
                pea_ampliada == 1 ~ 0,
                pet == 1 ~ 1
            )
        )
}


#' Sector de ocupación
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#'   variable \code{sector_ocupacion} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_sector_ocupacion(enft)
#' }
ft_sector_ocupacion <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_ocupado(min_edad) %>%
        ft_grupo_ocupacion(min_edad) %>%
        dplyr::mutate(
            sector_ocupacion = dplyr::case_when(
                EFT_CATEGORIA_OCUP_PRINC <= 3 &
                    EFT_CANT_PERS_TRAB <= 2 ~ 0,
                EFT_CATEGORIA_OCUP_PRINC %in% 4:6 &
                    grupo_ocupacion %in% c(5, 6, 7, 8, 9) ~ 0,
                EFT_CATEGORIA_OCUP_PRINC %in% 7:8 ~ 0,
                ocupado == 1 ~ 1
            ),
            sector_ocupacion = dplyr::case_when(
                ocupado == 1 ~ sector_ocupacion
            )
        )
}


#' Grupo de ocupación
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#'  variable \code{grupo_ocupacion} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_grupo_ocupacion(enft)
#' }
ft_grupo_ocupacion <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_pea_ampliada(min_edad) %>%
        dplyr::mutate(
            grupo_ocupacion = dplyr::case_when(
                EFT_OCUPACION_PRINC < 12 ~ 5,
                dplyr::between(EFT_OCUPACION_PRINC, 12, 199) ~ 1,
                EFT_OCUPACION_PRINC < 300 ~ 2,
                EFT_OCUPACION_PRINC < 400 ~ 3,
                EFT_OCUPACION_PRINC < 500 ~ 4,
                EFT_OCUPACION_PRINC < 600 ~ 5,
                EFT_OCUPACION_PRINC < 700 ~ 6,
                EFT_OCUPACION_PRINC < 800 ~ 7,
                EFT_OCUPACION_PRINC < 900 ~ 8,
                EFT_OCUPACION_PRINC > 900 ~ 9,
                pea_ampliada == 1 ~ 10
            )
        )
}


#' Perceptores de ingresos
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{perceptores_ingresos} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_perceptores_ingresos(enft)
#' }
ft_perceptores_ingresos <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_ocupado(min_edad) %>%
        dplyr::mutate(
            perceptores_ingresos = dplyr::case_when(
                ocupado == 1 & EFT_CATEGORIA_OCUP_PRINC != 7 ~ 1,
                ocupado == 1 ~ 0
            )
        )
}


#' Horas trabajadas a la semana
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{horas_semanal} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_horas_semanal(enft)
#' }
ft_horas_semanal <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_perceptores_ingresos(min_edad) %>%
        dplyr::mutate(
            horas_semanal = dplyr::case_when(
                perceptores_ingresos == 1 ~ EFT_HORAS_SEM_OCUP_PRINC
            )
        )
}


#' Ingreso laboral mensual
#' `r lifecycle::badge('stable')`
#'
#' @param tbl [data.frame] Data.frame con los datos de la encuesta
#' @param min_edad [integer] Edad mínima para considerar una persona en edad de trabajar
#'
#' @return [data.frame] los datos suministrados en el input tbl, pero con la
#' variable \code{ingreso_laboral_mensual} agregada.
#' @export
#'
#' @examples
#' \dontrun{
#' enft <- ft_ingreso_laboral_mensual(enft)
#' }
ft_ingreso_laboral_mensual <- function(tbl, min_edad = 15) {
    tbl %>%
        ft_perceptores_ingresos(min_edad) %>%
        dplyr::mutate(
            ingreso_laboral_mensual = dplyr::case_when(
                EFT_PERIODO_ING_OCUP_PRINC == 1 ~ EFT_ING_OCUP_PRINC * 4.3 * EFT_HORAS_SEM_OCUP_PRINC,
                EFT_PERIODO_ING_OCUP_PRINC == 2 ~ EFT_ING_OCUP_PRINC * 4.3 * EFT_DIAS_SEM_OCUP_PRINC,
                EFT_PERIODO_ING_OCUP_PRINC == 3 ~ EFT_ING_OCUP_PRINC * 4.3,
                EFT_PERIODO_ING_OCUP_PRINC == 4 ~ EFT_ING_OCUP_PRINC * 2,
                EFT_PERIODO_ING_OCUP_PRINC == 5 ~ EFT_ING_OCUP_PRINC,
                TRUE ~ 0
            ),
            ingreso_laboral_mensual = dplyr::case_when(
                perceptores_ingresos == 1 ~ ingreso_laboral_mensual
            )
        )
}