there are multiple contact numbers. How do I change them from characters to numeric?

Hi, you could do something like this:

library(tidyverse)

df <- tibble(x = c("22222222/ 33333333/ 44444444", "1234"))

nmax <- max(stringr::str_count(df$x, "\\/")) + 1

df %>% 
  separate(x, paste0("col", seq_len(nmax)), sep = "\\/", fill = "right") %>% 
  mutate(across(everything(), parse_number))


# A tibble: 2 × 3
      col1     col2     col3
     <dbl>    <dbl>    <dbl>
1 22222222 33333333 44444444
2     1234       NA       NA

Next time provide a reproducible example: