Question

给定数据框private void cmbMyItemStateChanged(java.awt.event.ItemEvent evt){ String value = jc.getSelectedItem().toString(); if(jc.getSelectedItem()!=null){ } }：

df

如何利用x <- c("X1", "X2", "X3", "X4", "X5") y <- c("00L0", "0", "00012L", "0123L0", "0D0") df <- data.frame(x, y)将tidyr::separate字符串的每个字符放入单独的列（每个字符串位置一列）？

期望的输出：

理论上mN可以达到m100（100列）或更高。

Answer 1

这很有效。它填充空白而不是NA，但如果您愿意，可以更改后期。（fill = 'right'仅在分割字符向量时有效，而不是显式位置。）

maxchar = max(nchar(as.character(df$y)))
tidyr::separate(df, y, into = paste0("y", 1:maxchar), sep = 1:(maxchar - 1))

#    x y1 y2 y3 y4 y5 y6
# 1 X1  0  0  L  0         
# 2 X2  0                  
# 3 X3  0  0  0  1  2  L   
# 4 X4  0  1  2  3  L  0   
# 5 X5  0  D  0

Answer 2

这是一个基础R方法。

tuple

导致

# split the strings
temp <- strsplit(df$y, split="")
# maximum length of the list items
maxL <- max(sapply(temp, length))
# contstruct data.frame with NAs as fills
temp <- data.frame(do.call(rbind, lapply(temp, function(i) c(i, rep(NA, maxL-length(i))))))

# add to df
df <- cbind(x=df[, -2], temp)

我在创建df时使用了stringsAFactors = FALSE：

        x X1   X2   X3   X4   X5   X6
1       X1  0    0    L    0 <NA> <NA>
2       X2  0 <NA> <NA> <NA> <NA> <NA>
3       X3  0    0    0    1    2    L
4       X4  0    1    2    3    L    0
5       X5  0    D    0 <NA> <NA> <NA>

但是，如果我没有，这段代码会导致错误，因为@ m0h3n指出了。如果没有这个替代的data.frame结构，有必要在df <- data.frame(x, y, stringsAsFactors = F)中包含df $ y来强制变量从一个因子到一个字符：

as.character

感谢@ m0h3n指出这一点。

Answer 3

您可以使用strsplit将列中的字符串拆分为单个字符：

> strsplit("00L0",c()) 
[[1]]
[1] "0" "0" "L" "0"

从您的数据框开始：

> df
   x      y
1 X1   00L0
2 X2      0
3 X3 00012L
4 X4 0123L0
5 X5    0D0

我解决了将这些字符放入列中的问题：

首先：使用ddply拆分y列中的所有字符串并将它们放在单独的行中

> ddply(df, .(x), summarise, v = 1:nchar(as.character(y)), 
        y = unlist(strsplit(as.character(y),c())))
    x v y
1  X1 1 0
2  X1 2 0
3  X1 3 L
4  X1 4 0
5  X2 1 0
6  X3 1 0
7  X3 2 0
8  X3 3 0
9  X3 4 1
10 X3 5 2
11 X3 6 L
12 X4 1 0
13 X4 2 1
14 X4 3 2
15 X4 4 3
16 X4 5 L
17 X4 6 0
18 X5 1 0
19 X5 2 D
20 X5 3 0

第二：使用重塑将具有相同x值的行转换为列

> reshape(ans, idvar=c("x"), timevar="v", direction="wide")
    x y.1  y.2  y.3  y.4  y.5  y.6
1  X1   0    0    L    0 <NA> <NA>
5  X2   0 <NA> <NA> <NA> <NA> <NA>
6  X3   0    0    0    1    2    L
12 X4   0    1    2    3    L    0
18 X5   0    D    0 <NA> <NA> <NA>

这可能使问题过于复杂，但这是我能让它发挥作用的唯一方法！

Answer 4

这是另一个base R选项，我们在＆＃39; y＆＃39;的每个字符之间创建一个分隔符,。列使用gsub，然后使用read.csv

进行阅读

cbind(df[1],read.csv(text=gsub("(?<=.)(?=.)", ",", df$y, perl=TRUE), 
                header=FALSE,fill=TRUE, na.strings = ""))
#   x V1   V2   V3 V4   V5   V6
#1 X1  0    0    L  0 <NA> <NA>
#2 X2  0 <NA> <NA> NA <NA> <NA>
#3 X3  0    0    0  1    2    L
#4 X4  0    1    2  3    L    0
#5 X5  0    D    0 NA <NA> <NA>

或使用tstrsplit

中的data.table

mxr = max(nchar(as.character(df$y)))
setDT(df)[, paste0("y", seq(mxr)) := tstrsplit(y, "")]

拆分或分离不均匀/不相等的字符串，没有分隔符

4 个答案: