拆分一列字符向量并返回一个列表

我有以下内容数据框:

df <- data.frame(Sl.No = c(1:6),
                 Variable = c('a', 'a,b', 'a,b,c', 'b', 'c', 'b,c'))


   Sl.No   Variable
   1         a
   2         a,b
   3         a,b,c
   4         b
   5         c
   6         b,c

我想将变量列中的唯一值分隔为列表

myList <- ("a", "b", "c")

我尝试过以下代码：

separator <- function(x) strsplit(x, ",")[[1]][[1]]
unique(sapply(df$Variable, separator))

然而，这给了我以下输出：

"a"

我请求一些帮助。我已经搜索过，但似乎找不到答案。

我们可以将Variable“，”处的列并获取所有值并仅选择unique ones.

unique(unlist(strsplit(df$Variable, ",")))
#[1] "a" "b" "c"

If the Variable列是因子，在使用前将其转换为字符strsplit.