ports.R

library(tidyverse, warn.conflicts = FALSE)

df <- tribble(
  ~id, ~port,
  "a", "22,33",
  "a", "22,44",
  "b", "33, 434"
)


df %>%
  transpose() %>%
  map_df(~tibble(
    id = .x$id,
    port = str_split(.x$port, ",")[[1]])
  ) %>% 
  group_by(id) %>%
  filter(!duplicated(port)) %>%
  summarise(port = paste0(port, collapse = ","))
#> # A tibble: 2 x 2
#>   id    port    
#>   <chr> <chr>   
#> 1 a     22,33,44
#> 2 b     33, 434