r - 拆分为列时用 NA 填充列以获得较短的字符串

Question

假设我有一个数据框，其列如下所示：

E <- data.frame(
  c("a brown fox"),
  c("something"),
  c("else")
)
E <- as.data.frame(t(E))

                          V1
c..a.brown.fox.. a brown fox
c..something..     something
c..else..               else

我想把它分成这样的列：

V1         V2     V3
a         brown  fox
something NA     NA
else      NA     NA

但它看起来像这样：

pacman::p_load(qdap) # or use library() or whatever
colsplit2df(E, sep = " ")
                        X1        X2        X3
c..a.brown.fox..         a     brown       fox
c..something..   something something something
c..else..             else      else      else

Answer 1

你可以做

library(splitstackshape) 
cSplit(E, 1, " ")
#         V1_1  V1_2 V1_3
# 1:         a brown  fox
# 2: something    NA   NA
# 3:      else    NA   NA