在R中：在以逗号分隔的列中找到所有唯一值

我对具有不同观察者/观察者组的一个物种有多种观察，并希望创建所有唯一观察者的列表。我的数据如下所示：

data <- read.table(text="species observer
1 A,B
1 A,B
1 B,E
1 B,E
1 D,E,A,C,C
1 F"               , header = TRUE, stringsAsFactors = FALSE)

我的输出应返回所有唯一观察者的列表-因此：

A,B,C,E,F

我尝试使用以下命令对C列中的数据进行子字符串化，但仅返回观察者的唯一组合。

all_observers <- unique(strsplit(as.character(data$observer), ","))

all_observers
[[1]]
[1] "A" "B"

[[2]]
[1] "B" "E"

[[3]]
[1] "D" "E" "A" "C" "C"

[[4]]
[1] "F"