R/tidyGender.R

In europace-privatkredit/tidyPkuData: Tidy Europace loan data

#' gender
#'
#' @description This function derives the gender of each applicant from the given title
#' @param df The name of the dataframe you want to manipulate
#' @return datatframe, tibble
#' @keywords gender
#' @import dplyr
#' @export
#' @examples tidyGender(df = df)


tidyGender <- function(df) {

  df <- df %>%
    dplyr::mutate(antragsteller1anrede = fct_recode(antragsteller1anrede,
                                             'männlich' = 'Herr',
                                             'weiblich' = 'Frau'),
           antragsteller2anrede = fct_recode(antragsteller2anrede,
                                             'männlich' = 'Herr',
                                             'weiblich' = 'Frau')
    ) %>%
    dplyr::rename(antragsteller1geschlecht = antragsteller1anrede,
           antragsteller2geschlecht = antragsteller2anrede)


  return(df)
}