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

问：

假设我有一个 DataFrame，其中的列如下所示：

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