Here is how to do it
library(tidyverse)
# Sample data in a copy/paste friendly format
table_1 <- data.frame(
stringsAsFactors = FALSE,
Code = c("A", "B", "C"),
Age = c(24, 18, 27),
Languages = c("001, 013", "025", "008, 009, 010"),
Response = c(1, 0, 1)
)
# Relevant code
table_1 %>%
separate_rows(Languages, sep = ",\\s")
#> # A tibble: 6 × 4
#> Code Age Languages Response
#> <chr> <dbl> <chr> <dbl>
#> 1 A 24 001 1
#> 2 A 24 013 1
#> 3 B 18 025 0
#> 4 C 27 008 1
#> 5 C 27 009 1
#> 6 C 27 010 1
Created on 2021-12-12 by the reprex package (v2.0.1)
Note: Next time please provide a proper REPRoducible EXample (reprex) illustrating your issue.