Добавление нескольких столбцов в вызов duter mutate

У меня есть кадр данных с столбцом символов с разделителями точек:

> set.seed(310366)
> tst = data.frame(x=1:10,y=paste(sample(c("FOO","BAR","BAZ"),10,TRUE),".",sample(c("foo","bar","baz"),10,TRUE),sep=""))
> tst
    x       y
1   1 BAR.baz
2   2 FOO.foo
3   3 BAZ.baz
4   4 BAZ.foo
5   5 BAZ.bar
6   6 FOO.baz
7   7 BAR.bar
8   8 BAZ.baz

и я хочу разбить этот столбец на два новых столбца, содержащих части по обе стороны от точки. str_split_fixed из пакета stringr может выполнять работу довольно хорошо. Все мои значения, безусловно, две части, разделенные точкой, поэтому я могу сделать:

> require(stringr)
> str_split_fixed(tst$y,"\\.",2)
      [,1]  [,2] 
 [1,] "BAR" "baz"
 [2,] "FOO" "foo"
 [3,] "BAZ" "baz"
 [4,] "BAZ" "foo"
 [5,] "BAZ" "bar"
 [6,] "FOO" "baz"
 [7,] "BAR" "bar"

Теперь я мог бы просто cbind сделать это в моем фрейме данных, но мне показалось, что я пойму, как это сделать в конвейере dplyr. Сначала я подумал, что mutate может сделать это в одном:

> tst %.% mutate(parts=str_split_fixed(y,"\\.",2))
Error: wrong result size (20), expected 10 or 1

Я могу получить mutate сделать это пополам:

> tst %.% mutate(part1=str_split_fixed(y,"\\.",2)[,1], part2=str_split_fixed(y,"\\.",2)[,2])
    x       y part1 part2
1   1 BAR.baz   BAR   baz
2   2 FOO.foo   FOO   foo
3   3 BAZ.baz   BAZ   baz
4   4 BAZ.foo   BAZ   foo
5   5 BAZ.bar   BAZ   bar
6   6 FOO.baz   FOO   baz

но для этого дважды выполняется разделение строки.

"Лучшее", которое я могу сделать до сих пор в dplyr, это (что я обнаружил только при написании этого вопроса...):

> tst %.% do(cbind(.,data.frame(parts=str_split_fixed(.$y,"\\.",2))))
    x       y parts.1 parts.2
1   1 BAR.baz     BAR     baz
2   2 FOO.foo     FOO     foo
3   3 BAZ.baz     BAZ     baz
4   4 BAZ.foo     BAZ     foo
5   5 BAZ.bar     BAZ     bar

что неплохо, но теряет большую удобочитаемость пропущенных вещей в R. Существует ли простой подход с использованием mutate, который я пропустил?

Ответ 1