R 仅从逗号分隔的字符串中选择唯一值

我有一个如下所示的数据框：

A B C
1 M 1,2
2 M 1,5,5,5
3 M 4,5,7,7

我希望选取C列并仅从中选择唯一值，以实现以下目的：

A B C
1 M 1,2
2 M 1,5
3 M 4,5,7

假设您的C列是一个字符向量，如本示例所示

dd <- read.table(text="A B C
1 M 1,2
2 M 1,5,5,5
3 M 4,5,7,7", header = TRUE, stringsAsFactors = FALSE)

如果C是一个因子，则使用as.characterdd$C

dd$D <- sapply(strsplit(dd$C, ",", fixed = TRUE), function(x) 
    paste(unique(x), collapse = ","))
dd
#   A B       C     D
# 1 1 M     1,2   1,2
# 2 2 M 1,5,5,5   1,5
# 3 3 M 4,5,7,7 4,5,7