library(tidyverse)
dat <- tibble(
variable = c("k2", "k2", "k4", "k5", "k4")
)
dat
#> # A tibble: 5 × 1
#> variable
#> <chr>
#> 1 k2
#> 2 k2
#> 3 k4
#> 4 k5
#> 5 k4
lookup <- tibble(
variable = c("k2", "k4", "k5"),
response = c("0, Low (1-3) | 1, Moderate (4-6) | 2, High (7-10)",
"0, No (0) | 1, Low (1-8) | 2, Moderate (9-16) | 3, High (17-24)",
"0, No (0) | 1, Low (1-4) | 2, Moderate (5-12)")
)
lookup
#> # A tibble: 3 × 2
#> variable response
#> <chr> <chr>
#> 1 k2 0, Low (1-3) | 1, Moderate (4-6) | 2, High (7-10)
#> 2 k4 0, No (0) | 1, Low (1-8) | 2, Moderate (9-16) | 3, High (17-24)
#> 3 k5 0, No (0) | 1, Low (1-4) | 2, Moderate (5-12)
dat_w_join <- dat |>
left_join(
lookup,
by = c("variable")
)
dat_w_join
#> # A tibble: 5 × 2
#> variable response
#> <chr> <chr>
#> 1 k2 0, Low (1-3) | 1, Moderate (4-6) | 2, High (7-10)
#> 2 k2 0, Low (1-3) | 1, Moderate (4-6) | 2, High (7-10)
#> 3 k4 0, No (0) | 1, Low (1-8) | 2, Moderate (9-16) | 3, High (17-24)
#> 4 k5 0, No (0) | 1, Low (1-4) | 2, Moderate (5-12)
#> 5 k4 0, No (0) | 1, Low (1-8) | 2, Moderate (9-16) | 3, High (17-24)
# compared to a case_when
dat_w_case_when <- dat |>
mutate(
response = case_when(
variable == "k2" ~ "0, Low (1-3) | 1, Moderate (4-6) | 2, High (7-10)",
variable == "k4" ~ "0, No (0) | 1, Low (1-8) | 2, Moderate (9-16) | 3, High (17-24)",
variable == "k5" ~ "0, No (0) | 1, Low (1-4) | 2, Moderate (5-12)"
)
)
dat_w_case_when
#> # A tibble: 5 × 2
#> variable response
#> <chr> <chr>
#> 1 k2 0, Low (1-3) | 1, Moderate (4-6) | 2, High (7-10)
#> 2 k2 0, Low (1-3) | 1, Moderate (4-6) | 2, High (7-10)
#> 3 k4 0, No (0) | 1, Low (1-8) | 2, Moderate (9-16) | 3, High (17-24)
#> 4 k5 0, No (0) | 1, Low (1-4) | 2, Moderate (5-12)
#> 5 k4 0, No (0) | 1, Low (1-8) | 2, Moderate (9-16) | 3, High (17-24)
waldo::compare(
dat_w_join,
dat_w_case_when
)
#> ✔ No differencesCreated on 2025-07-16 with reprex v2.1.1
Session info
sessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#> setting value
#> version R version 4.5.1 (2025-06-13)
#> os macOS Sonoma 14.5
#> system aarch64, darwin20
#> ui X11
#> language (EN)
#> collate en_US.UTF-8
#> ctype en_US.UTF-8
#> tz Australia/Brisbane
#> date 2025-07-16
#> pandoc 3.4 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/aarch64/ (via rmarkdown)
#> quarto 1.7.31 @ /usr/local/bin/quarto
#>
#> ─ Packages ───────────────────────────────────────────────────────────────────
#> package * version date (UTC) lib source
#> cli 3.6.5 2025-04-23 [1] CRAN (R 4.5.0)
#> digest 0.6.37 2024-08-19 [1] CRAN (R 4.5.0)
#> dplyr * 1.1.4 2023-11-17 [1] CRAN (R 4.5.0)
#> evaluate 1.0.4 2025-06-18 [1] CRAN (R 4.5.0)
#> farver 2.1.2 2024-05-13 [1] CRAN (R 4.5.0)
#> fastmap 1.2.0 2024-05-15 [1] CRAN (R 4.5.0)
#> forcats * 1.0.0 2023-01-29 [1] CRAN (R 4.5.0)
#> fs 1.6.6 2025-04-12 [1] CRAN (R 4.5.0)
#> generics 0.1.4 2025-05-09 [1] CRAN (R 4.5.0)
#> ggplot2 * 3.5.2 2025-04-09 [1] CRAN (R 4.5.0)
#> glue 1.8.0 2024-09-30 [1] CRAN (R 4.5.0)
#> gtable 0.3.6 2024-10-25 [1] CRAN (R 4.5.0)
#> hms 1.1.3 2023-03-21 [1] CRAN (R 4.5.0)
#> htmltools 0.5.8.1 2024-04-04 [1] CRAN (R 4.5.0)
#> knitr 1.50 2025-03-16 [1] CRAN (R 4.5.0)
#> lifecycle 1.0.4 2023-11-07 [1] CRAN (R 4.5.0)
#> lubridate * 1.9.4 2024-12-08 [1] CRAN (R 4.5.0)
#> magrittr 2.0.3 2022-03-30 [1] CRAN (R 4.5.0)
#> pillar 1.11.0 2025-07-04 [1] CRAN (R 4.5.0)
#> pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.5.0)
#> purrr * 1.0.4.9000 2025-05-04 [1] Github (tidyverse/purrr@9c8beb4)
#> R6 2.6.1 2025-02-15 [1] CRAN (R 4.5.0)
#> RColorBrewer 1.1-3 2022-04-03 [1] CRAN (R 4.5.0)
#> readr * 2.1.5 2024-01-10 [1] CRAN (R 4.5.0)
#> reprex 2.1.1 2024-07-06 [1] CRAN (R 4.5.0)
#> rlang 1.1.6 2025-04-11 [1] CRAN (R 4.5.0)
#> rmarkdown 2.29 2024-11-04 [1] CRAN (R 4.5.0)
#> rstudioapi 0.17.1 2024-10-22 [1] CRAN (R 4.5.0)
#> scales 1.4.0 2025-04-24 [1] CRAN (R 4.5.0)
#> sessioninfo 1.2.3 2025-02-05 [1] CRAN (R 4.5.0)
#> stringi 1.8.7 2025-03-27 [1] CRAN (R 4.5.0)
#> stringr * 1.5.1 2023-11-14 [1] CRAN (R 4.5.0)
#> tibble * 3.3.0 2025-06-08 [1] CRAN (R 4.5.0)
#> tidyr * 1.3.1 2024-01-24 [1] CRAN (R 4.5.0)
#> tidyselect 1.2.1 2024-03-11 [1] CRAN (R 4.5.0)
#> tidyverse * 2.0.0 2023-02-22 [1] CRAN (R 4.5.0)
#> timechange 0.3.0 2024-01-18 [1] CRAN (R 4.5.0)
#> tzdb 0.5.0 2025-03-15 [1] CRAN (R 4.5.0)
#> utf8 1.2.6 2025-06-08 [1] CRAN (R 4.5.0)
#> vctrs 0.6.5 2023-12-01 [1] CRAN (R 4.5.0)
#> waldo 0.6.1 2024-11-07 [1] CRAN (R 4.5.0)
#> withr 3.0.2 2024-10-28 [1] CRAN (R 4.5.0)
#> xfun 0.52 2025-04-02 [1] CRAN (R 4.5.0)
#> yaml 2.3.10 2024-07-26 [1] CRAN (R 4.5.0)
#>
#> [1] /Users/nick_1/Library/R/arm64/4.5/library
#> [2] /Library/Frameworks/R.framework/Versions/4.5-arm64/Resources/library
#> * ── Packages attached to the search path.
#>
#> ──────────────────────────────────────────────────────────────────────────────