按每个字符将字符串分隔成列

Question

在我的数据框中，我有一列这样的长字符串

df$string 
AVDSFBKLDF

我需要的是分隔每个字符并为其创建新列。 列的名称是q1，q2，依此类推。 对于类似的情况，例如按符号分割字符串并将其放入新列中，我使用了此代码

df %>% separate(string, into = paste0('q', 1:10), sep = "")

它工作正常，但是现在当我想按每个字符分割字符串时，控制台出现空白警告，我的代码不起作用。

Answer 1

data.table包提供您可能考虑的功能tstrsplit 。

a<- c("AVDSFBKLDF", "GH", "ABCD")

library(data.table)
DT <- data.table(a)
DT_wide <- DT[, tstrsplit(a, "")]

# change column names
setnames(DT_wide, paste0("q", seq_len(ncol(DT_wide))))
DT_wide
#   q1 q2   q3   q4   q5   q6   q7   q8   q9  q10
#1:  A  V    D    S    F    B    K    L    D    F
#2:  G  H <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
#3:  A  B    C    D <NA> <NA> <NA> <NA> <NA> <NA>

如果要继续使用数据setDF(DT_wide) ，请在最后键入setDF(DT_wide) 。

Answer 2

使用下面的代码。 我已经使用了Stringr包的str_split_fixed函数来创建新列。

a<- c("AVDSFBKLDF")

library(stringr)
d<- data.frame(str_split_fixed(a, "", max(nchar(a))))

我希望这有帮助

Answer 3

您可以尝试：

df<- data.frame(string=c("ABCDEF","GH"))
df %>% mutate(v=str_split(string,"(?=.)")) %>% unnest %>%
  filter(v!="") %>% 
  group_by(string) %>% mutate(k=paste0("q",row_number())) %>% ungroup %>%
  spread(k,v) 
## A tibble: 2 x 7
#  string q1    q2    q3    q4    q5    q6   
#  <fct>  <chr> <chr> <chr> <chr> <chr> <chr>
#1 ABCDEF A     B     C     D     E     F    
#2 GH     G     H     <NA>  <NA>  <NA>  <NA>