Use codebook to recreate original levels from labelled facors

Usage

decode(data, codebook)

Arguments

data: A data frame or tibble
codebook: A codebook

Value

Data set with variables encoded as factors

Examples

labels <- codebook(
  code("SEX", levels = c(0, 1), labels = c("Male", "Female")),
  code("STUDY", levels = c(1, 2, 3), labels = c("S1", "S2", "S3"))
)
dataset <- data.frame(
   STUDY = factor(c("S1", "S1", "S1", "S2", "S2", "S2")),
   SEX   = factor(c("Male", "Male", "Female", "Female", "Female", "Male")),
   AGE   = c(32, 18, 64, 52, 26, 80)
)
decode(dataset, labels)
#> # A tibble: 6 × 3
#>   STUDY   SEX   AGE
#>   <dbl> <dbl> <dbl>
#> 1     1     0    32
#> 2     1     0    18
#> 3     1     1    64
#> 4     2     1    52
#> 5     2     1    26
#> 6     2     0    80