你可以这样试试
library(igraph)
library(data.table)
library(splitstackshape)
dt <- data.table(V1=c("from1", "from2", "from3"),
yy1=c("@to1, @to2", "@to3, @to4", "@to5"))
dt <- cSplit(dt, 2, ", ", "long")[, yy1:=sub("@", "", yy1, fixed=T)]
dt %>% graph_from_data_frame %>% plot