r mutate with stringsplit code example

Example: r strsplit in mutate

> dat %>% separate(labels, c("first", "second") )
   first second
1:     a      1
2:     b      2
3:     c      3
4:     d      4