Разделить столбец строки фрейма данных на несколько столбцов

Я хотел бы взять данные формы

before = data.frame(attr = c(1,30,4,6), type=c('foo_and_bar','foo_and_bar_2'))
  attr          type
1    1   foo_and_bar
2   30 foo_and_bar_2
3    4   foo_and_bar
4    6 foo_and_bar_2

и использовать split () в столбце « type » сверху, чтобы получить что-то вроде этого :

  attr type_1 type_2
1    1    foo    bar
2   30    foo  bar_2
3    4    foo    bar
4    6    foo  bar_2

Я придумал что-то невероятно сложное, включающее некоторую форму apply , которая работала, но с тех пор я ее потерял. Это казалось слишком сложным, чтобы быть лучшим способом. Я могу использовать strsplit , как показано ниже, но тогда неясно, как вернуть это в 2 столбца во фрейме данных.

> strsplit(as.character(before$type),'_and_')
[[1]]
[1] "foo" "bar"

[[2]]
[1] "foo"   "bar_2"

[[3]]
[1] "foo" "bar"

[[4]]
[1] "foo"   "bar_2"

Спасибо за любые указатели. Я еще не очень хорошо разбирался в списках R.