file2ab65b2b6ad.R

library(dplyr)
library(tidyr)


survey <-  data_frame(ID= factor(seq.int(1,6,1)), answers=c("a","b,c","d,e","c,d","b,c,e","e"))


survey %>%  unnest(answers=strsplit(answers,","))

# A tibble: 11 x 2
ID    answers
<fct> <chr>  
  1 1     a      
2 2     b      
3 2     c      
4 3     d      
5 3     e      
6 4     c      
7 4     d      
8 5     b      
9 5     c      
10 5     e      
11 6     e