strsplit по строке и распределите результаты по столбцу в data.frame

Вот один вариант. Единственная сложность заключается в том, что вам нужно сначала преобразовать каждый вектор в data.frame с одной строкой, поскольку data.frames — это то, что ожидает rbind.fill().

library(plyr)
rbind.fill(lapply(sbt, function(X) data.frame(t(X))))
#     X1       X2     X3    X4
# 1  Sir Lancelot    the Brave
# 2 King   Arthur   <NA>  <NA>
# 3  The    Black Knight  <NA>
# 4  The   Rabbit   <NA>  <NA>

Однако я склонен просто использовать базу R, например:

n <- max(sapply(sbt, length))
l <- lapply(sbt, function(X) c(X, rep(NA, n - length(X))))
data.frame(t(do.call(cbind, l)))
#     X1       X2     X3    X4
# 1  Sir Lancelot    the Brave
# 2 King   Arthur   <NA>  <NA>
# 3  The    Black Knight  <NA>
# 4  The   Rabbit   <NA>  <NA>

Я знаю, что это старый вопрос, но я решил поделиться двумя дополнительными вариантами.

Опция 1

concat.split из моего пакета "splitstackshape" был разработан именно для этого типа вещей.

library(splitstackshape)
concat.split(dat, "x", " ")
#                        x  x_1      x_2    x_3   x_4
# 1 Sir Lancelot the Brave  Sir Lancelot    the Brave
# 2            King Arthur King   Arthur             
# 3       The Black Knight  The    Black Knight      
# 4             The Rabbit  The   Rabbit        

Вариант 2

data.table недавно (начиная с версии 1.8.11, я полагаю) имел некоторые дополнения к своему арсеналу, особенно в этом случае dcast.data.table. Чтобы использовать его, unlist разделите данные (как это было сделано в ответе @mnel), создайте переменную «время», используя .N (сколько новых значений в строке), и используйте dcast.data.table для преобразования данных в форму, которую вы ищете.

library(data.table)
library(reshape2)
packageVersion("data.table")
# [1] ‘1.8.11’

DT <- data.table(dat)
S1 <- DT[, list(X = unlist(strsplit(x, " "))), by = seq_len(nrow(DT))]
S1[, Time := sequence(.N), by = seq_len]
dcast.data.table(S1, seq_len ~ Time, value.var="X")
#    seq_len    1        2      3     4
# 1:       1  Sir Lancelot    the Brave
# 2:       2 King   Arthur     NA    NA
# 3:       3  The    Black Knight    NA
# 4:       4  The   Rabbit     NA    NA

Используя data.table, как кажется, вы пытаетесь его использовать.

library(data.table)
DT <- data.table(dat)
DTB <- DT[, list(y = unlist(strsplit(x, ' '))), by = x]

new <- rep(NA_character_,  DTB[,.N,by =x][which.max(N), N])
names(new) <- paste0('V', seq_along(new))
DTB[,{.new <- new 
      .new[seq_len(.N)] <- y 
       as.list(.new)} ,by= x]

Или используйте reshape2 dcast для изменения формы

library(reshape2)

dcast(DTB[,list(id = seq_len(.N),y),by= x ], x ~id, value.var = 'y')

Вот хороший и простой подход с tidyr.

library(tidyr)

ncol <- max(sapply(dat, length))

dat %>%
  separate(x, paste0("V", seq(1,ncol)))

Примечание. Вы получите предупреждение, однако в основном оно сообщает вам, что separate дополняет данные NA. Так что можете игнорировать предупреждение.