r - 在tidyverse中分离混合值并生成新列

Question

这个问题在这里已经有了答案:





Separate a column into multiple columns using tidyr::separate with sep=""

(2 个回答)


2年前关闭。




我的数据示例如下:

df1 <- read.table(text = "var Time  
 12O    12
13O 11
22B 45
33Z 22
21L 2
11M 13", header = TRUE)

我想将“Var”列中的值分开以获得以下数据:

df2 <- read.table(text = " Group1 Group2 Group3 
 1  2   O
1   3   O
2   2   B
3   3   Z
2   1   L
1   1   M", header = TRUE)

我尝试了以下代码:

 df2 <- df1 %>% separate(var, into = c('Group1', 'Group2','Group3'), sep = 1)

我收到一个错误。我已经搜索以找出错误，但我失败了。

Answer 1

如果要保留原来的列，可以使用str_split_fixed来自 stringr包装和 cbind结果到您现有的 dataframe

cbind(df1, str_split_fixed(as.character(df1$var),"", n = 3))

  var Time 1 2 3
1 12O   12 1 2 O
2 13O   11 1 3 O
3 22B   45 2 2 B
4 33Z   22 3 3 Z
5 21L    2 2 1 L
6 11M   13 1 1 M