minmaxrecode.R

# I create and discuss this code at https://youtu.be/nU_GEPKVXU8

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
rawdat <- tibble(n = c("1", "2-4", "5-7"))

cleandat <- rawdat %>%
  mutate(nmin = if_else(n == "2-4", "2", n)) %>%
  mutate(nmax = if_else(n == "2-4", "4", n)) %>%
  mutate(nmin = if_else(n == "5-7", "5", nmin)) %>%
  mutate(nmax = if_else(n == "5-7", "7", nmax)) %>%
  mutate(nmax = as.numeric(nmax)) %>%
  mutate(nmin = as.numeric(nmin))

cleandat2 <- rawdat %>%
  mutate(nmin = as.numeric(recode(n, "2-4" = "2", "5-7" = "5"))) %>%
           mutate(nmax = as.numeric(recode(n, "2-4" = "4", "5-7" = "7")))

cleandat
#> # A tibble: 3 x 3
#>   n      nmin  nmax
#>   <chr> <dbl> <dbl>
#> 1 1         1     1
#> 2 2-4       2     4
#> 3 5-7       5     7
cleandat2
#> # A tibble: 3 x 3
#>   n      nmin  nmax
#>   <chr> <dbl> <dbl>
#> 1 1         1     1
#> 2 2-4       2     4
#> 3 5-7       5     7
identical(cleandat, cleandat2)
#> [1] TRUE
all.equal(cleandat, cleandat2)
#> [1] TRUE