From Ben Fitzpatrick
ic_vec <- c('11% - 20%', '21% - 30%', '0% - 9%')
library(tidyverse)
ic_vec %>%
as_tibble() %>%
separate(col = value,
into = c("lower", "upper"),
sep = " - ") %>%
mutate_if(.predicate = is.character,
.funs = readr::parse_number)
#> # A tibble: 3 x 2
#> lower upper
#> <dbl> <dbl>
#> 1 11. 20.
#> 2 21. 30.
#> 3 0. 9.
Created on 2018-03-15 by the reprex package (v0.2.0).