R/tidyProductType.R

In europace-privatkredit/tidyPkuData: Tidy Europace loan data

#' product type
#'
#' @description This function refines the product type decription for specific product providers
#' @param df The name of the dataframe you want to manipulate
#' @return datatframe, tibble
#' @keywords product type
#' @import dplyr
#' @export
#' @examples tidyProductType(df = df)

tidyProductType <- function(df) {

  df <- df %>%
    dplyr::mutate(produktbezeichnung = as.character(produktbezeichnung)) %>%
    dplyr::mutate(produktbezeichnung = if_else((produktanbieterid == 'VEB' & produktbezeichnung == 'Ratenkredit'), 'VEB Ratenkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'ING-DIBA' & produktbezeichnung == 'Ratenkredit'), 'ING-DIBA Ratenkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'TARGO' & produktbezeichnung == 'Ratenkredit'), 'TARGO Ratenkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'SANTANDER-CONSUMER' & produktbezeichnung == 'Ratenkredit'), 'SANTANDER Ratenkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'ING-DIBA' & produktbezeichnung == 'Wohnkredit'), 'ING-DIBA Wohnkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'ING-DIBA' & produktbezeichnung == 'Autokredit'), 'ING-DIBA Autokredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'SPK' & produktbezeichnung == 'ModPlattform MBE_NDL_OSPK'), 'SPK Meißen Modernisierungskredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'SPK' & produktbezeichnung == ''), 'SPK Meißen Privatkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'SPK' & produktbezeichnung == 'S-Privatkredit'), 'SPK Barnim Privatkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'SPK' & produktbezeichnung == 'ALL_P.A._KON MBE_KKIV_1.5'), 'SPK Barnim Privatkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'SPK' & produktbezeichnung == 'ALL_P.A._KON MBE_NDL_FINM'), 'KSK Anhalt-Bitterfeld Privatkredit', produktbezeichnung),
           produktbezeichnung = if_else((produktanbieterid == 'SPK' & produktbezeichnung == 'Allzweckdarlehen'), 'KSK Anhalt-Bitterfeld Allzweckdarlehen', produktbezeichnung)
    )

  return(df)

}