Предполагая, что кадр данных, показанный в примечании в конце:
library(dplyr)
library(tidyr)
DF2 <- DF %>% separate_rows(target, convert = TRUE)
DF2
## source target
## 1 1 2
## 2 1 3
## 3 2 4
library(igraph)
DF2 %>% graph_from_data_frame %>% plot
Примечание
Lines <- 'source target
1 "2, 3"
2 "4"'
DF <- read.table(text = Lines, header = TRUE, as.is = TRUE)