dplyr ::의 mutate : - 작품이 쉼표로 구분 된 목록 열

Question

예 사이에 새 열 = 차이 : D 자이 두 목록 사이의 차이를 (할당됩니다

df <- data.frame(c0=c(1, 2), c1=c("A,B,C", "D,E,F"), c2=c("B,C", "D,E")) 
df 
# c0 c1 c2 
# 1 1 A,B,C B,C 
# 2 2 D,E,F D,E 

# Add a column d with difference between c1 and c2 
df %>% mutate(d=setdiff(unlist(strsplit(as.character(c1), ",")), unlist(strsplit(as.character(c2), ",")))) 

# c0 c1 c2 d 
# 1 1 A,B,C B,C A 
# 2 2 D,E,F D,E F 

나는 위의 기대 것을 얻을 그들은 이미 분류되어있다). 내가 하나 개 이상의 다른 문자를 소개하면

그러나, 그것은 더 이상 작동하지 않습니다 :

df <- data.frame(c0=c(1, 2), c1=c("A,B,C", "D,E,F,G"), c2=c("B,C", "D,E")) 
df 
# c0  c1 c2 
# 1 1 A,B,C B,C 
# 2 2 D,E,F,G D,E 

# Add a column d with difference between c1 and c2 
df %>% mutate(d=setdiff(unlist(strsplit(as.character(c1), ",")), unlist(strsplit(as.character(c2), ",")))) 
Error: wrong result size (3), expected 2 or 1 

이 내가 얻고 싶었다 무엇 : 나는 setdiff 주위에 paste() 추가하려고했습니다

c0 c1 c2 d 
1 1 A,B,C B,C A 
2 2 D,E,F,G D,E F,G 

그러나 그것은 도움이되지 않았다. 나는 위의 setdiff으로 잘못하고있는 무슨

c0 c1 c2 d 
1 1 A,B,C B,C A 
2 2 D,E,F,G D,E F 
3 2 D,E,F,G D,E G 

: 결국 사실은 아마 같은 새로운 행에 D 열을 분할 tidyr::separate을 사용할 수 있도록하려면?

감사

팀은 2 행에 당신이 셀에 맞지 않을 수 이상의 요소를 가지고 있기 때문에 당신은 오류가

Answer 1

, 한 가지 방법은 rowwise를 사용하여 목록으로 결과를 래핑하는 것입니다 있도록 들어갈 수 및 tidyr에서 그 사용 unnest 후 목록 유형 열 확장 :

library(dplyr) 
library(tidyr) 
df %>% 
     rowwise() %>% 
     mutate(d=list(setdiff(unlist(strsplit(as.character(c1), ",")), 
          unlist(strsplit(as.character(c2), ","))))) %>% 
     unnest() 

# Source: local data frame [3 x 4] 

#  c0  c1  c2  d 
# <dbl> <fctr> <fctr> <chr> 
# 1  1 A,B,C B,C  A 
# 2  2 D,E,F,G D,E  F 
# 3  2 D,E,F,G D,E  G