Recoding Categorical Variables
Code Example 3
Code
9 / 10
Code Example 3
Code
Code Example 3
r
enrollment_recoded <- enrollment_data |>
mutate(
visit_status_clean = case_when(
str_to_lower(visit_status) %in% c("complete", "completed", "done") ~ "Completed",
str_to_lower(visit_status) %in% c("missed", "not done", "not completed") ~ "Missed",
str_to_lower(visit_status) %in% c("pending", "awaiting") ~ "Pending",
is.na(visit_status) ~ NA_character_,
TRUE ~ "Needs review"
)
)