r - 字符串拆分成重复的行

Question

这个问题已经有答案了:

Split parts of strings into a list column and then make a vector column (1 个回答)

已关闭 10 年前。

给定以下示例数据集:

col1 <- c("X1","X2","X3|X4|X5","X6|X7")
col2 <- c("5","8","1","4")
dat <- data.frame(col1,col2)

如何拆分 col1通过|并将它们作为单独的行输入，其中包含重复的 col2值(value)观？这是我想要最终得到的数据框:

col1 col2
  X1    5
  X2    8
  X3    1
  X4    1
  X5    1
  X6    4
  X7    4

我需要一个可以容纳多个列的解决方案，类似于 col2也需要复制。

Answer 1

只需分割字符串，然后根据长度重复其他列即可。

y<-strsplit(as.character( dat[,1])  , "|", fixed=TRUE)
data.frame(col1= unlist(y), col2= rep(dat[,2], sapply(y, length)))
  col1 col2
1   X1    5
2   X2    8
3   X3    1
4   X4    1
5   X5    1
6   X6    4
7   X7    4

如果您需要重复除第一列之外的许多列

data.frame(col1= unlist(y), dat[ rep(1:nrow(dat), sapply(y, length)) , -1 ] )