wide to long format

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.