Question

的变体

我有一个带字符串的向量，每个字符串有2到4个字符。

Strng <- c("XDX",  "GUV",  "FQ",   "ACUE", "HIT",  "AYX",  "NFD",  "AHBW", "GKQ",  "PYF")

我想将其拆分为具有4列的数据框，其中每列包含一个字符或0（对于字符串长度较小的情况4）。零可以在 - 前面没关系。

在应用此之后（可能）：

ss<-strsplit(Strng,"")
z<-lapply(ss,as.character)

我想要一个这样的数据框：

>df  
"X" "D" "X" "0"  
"G" "U" "V" "0"  
"F" "Q" "0" "0"   
"A" "C" "U" "E" 
"H" "I" "T" "0"  
"A" "Y" "X" "0"  
"N" "F" "D" "0"  
"A" "H" "B" "W" 
"G" "K" "Q" "0"  
"P" "Y" "F" "0"

有什么想法吗？

谢谢，

卡林

Answer 1

这是＆＃34; data.table＆＃34;

的替代方案

library(data.table)
setDT(tstrsplit(Strng, "", fill = "0"))[]
#     V1 V2 V3 V4
#  1:  X  D  X  0
#  2:  G  U  V  0
#  3:  F  Q  0  0
#  4:  A  C  U  E
#  5:  H  I  T  0
#  6:  A  Y  X  0
#  7:  N  F  D  0
#  8:  A  H  B  W
#  9:  G  K  Q  0
# 10:  P  Y  F  0

你也可以使用我的＆＃34; splitstackshape＆＃34;中的cSplit。包，但它填充NA并使用一些奇怪的语法：

library(splitstackshape)
cSplit(data.table(Strng), "Strng", "", stripWhite = FALSE)

Answer 2

我们可以在分割＆＃34; Strng＆＃34;之后使用stri_list2matrix中的stringi到list。

library(stringi)
stri_list2matrix(strsplit(Strng, ''), fill=0, byrow=TRUE)
#     [,1] [,2] [,3] [,4]
# [1,] "X"  "D"  "X"  "0" 
# [2,] "G"  "U"  "V"  "0" 
# [3,] "F"  "Q"  "0"  "0" 
# [4,] "A"  "C"  "U"  "E" 
# [5,] "H"  "I"  "T"  "0" 
# [6,] "A"  "Y"  "X"  "0" 
# [7,] "N"  "F"  "D"  "0" 
# [8,] "A"  "H"  "B"  "W" 
# [9,] "G"  "K"  "Q"  "0" 
#[10,] "P"  "Y"  "F"  "0"

或者base R选项（link中描述的选项的变体）

read.fwf(file= textConnection(Strng), 
             widths = rep(1,max(nchar(Strng))))

将字符串向量拆分为包含相应字符的列的数据框

2 个答案: