Regex extract info между двумя запятыми

Question

data<-data.frame(x=c("a,b","c","a,b","d,e,f,g")) 
     x 
1  a,b 
2  c 
3  a,b 
4 d,e,f,g 

Я хотел бы извлечь информацию из столбца x и написать каждую уникальную информацию в столбец y, что мне делать? Спасибо! Col у, как ожидается, как:

y 
1 a 
2 b 
3 c 
4 d 
5 e 
6 f 
7 g 

Answer 1

d<-data.frame(x=c("a,b","c","a,b","d,e,f,g")) 

> levels(d$x) 
[1] "a,b"  "c"  "d,e,f,g" 

> e <- as.character(levels(d$x)) 
> e 
[1] "a,b"  "c"  "d,e,f,g" 
> 

> f <- strsplit(e,",") 
> f 
[[1]] 
[1] "a" "b" 

[[2]] 
[1] "c" 

[[3]] 
[1] "d" "e" "f" "g" 

unlist(f) 
[1] "a" "b" "c" "d" "e" "f" "g" 

Answer 2

A tidyr решение:

library(tidyr) 
data %>% unnest(x=strsplit(as.character(x),",")) %>% unique() 

или (благодаря @alistaire)

data %>% separate_rows(x) %>% unique()