정규식 추출 쉼표 사이의 정보

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에 쓰고 싶습니다. 어떻게해야합니까? 고맙습니다!

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

tidyr 솔루션 : 골 y를이 같은 예상된다

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

또는 정규식 정말 여기에 필요하지 않습니다

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