Replace missing codes in a vector of factor variables

The default is to use the reference level of the factor.

Usage

replace_missing_codes(
  x,
  missing_codes = c("99", "777", "888", "999",
    "Asked by clinician, but no answer from subject (99)",
    "Question not asked at time of data entry; check records (777)", "NA (888)",
    "No Response (999)", "Missing/Refused (999)"),
  replacement = levels(x)[1],
  mapping = setNames(rep(replacement, length(missing_codes)), missing_codes)
)

Arguments

x

a factor vector

missing_codes

a vector of strings

replacement

a string variable or NA

mapping

a named string vector

Value

a factor vector

Examples

x = iris$Species |> unique()
x |> replace_missing_codes(missing_codes = "virginica", replacement = "versicolor")
#> [1] setosa     versicolor versicolor
#> Levels: setosa versicolor