R 将逗号分隔的列条目拆分为行

我已经找到了同一个问题的其他版本，但我无法根据问题的答案进行修改。这是一个

op那里的数据只有两列——给出的答案处理得非常好。但是两个以上的栏目呢？有没有办法调整链接的代码段

以下是一个例子：

ve <- rbind("4,2","3","1,2,3","5","6","7")
expl <- cbind(head(mtcars),ve)

    row.names           mpg     cyl     disp    hp      drat    wt      qsec    vs  am  gear carb   ve
1   Mazda RX4           21.0    6       160     110     3.90    2.620   16.46   0   1   4    4      4,2
2   Mazda RX4 Wag       21.0    6       160     110     3.90    2.875   17.02   0   1   4    4      3
3   Datsun 710          22.8    4       108     93      3.85    2.320   18.61   1   1   4    1      1,2,3
4   Hornet 4 Drive      21.4    6       258     110     3.08    3.215   19.44   1   0   3    1      5
5   Hornet Sportabout   18.7    8       360     175     3.15    3.440   17.02   0   0   3    2      6
6   Valiant             18.1    6       225     105     2.76    3.460   20.22   1   0   3    1      7

---

谢谢大家!

从

tidyr

包中尝试

unest

。我的示例使用了

dplyr

，但也可以使用基本函数来完成

library(dplyr)
library(tidyr)

expl %>%
  mutate(ve = strsplit(as.character(ve), ",")) %>% 
  unnest(ve)

---

这里有一个仅使用base R的尝试（它还保留了行名称-至少在某种程度上…）

另一个选择是

setkey(expl, ve)[setDT(expl)[, strsplit(as.character(ve), ","), ve]]

---

我想从我的“splitstackshape”软件包中推荐

cSplit

由于您的示例具有

rownames

，因此我使用

keep.rownames=TRUE

参数将示例数据转换为

data.table

library(splitstackshape)
cSplit(as.data.table(expl, keep.rownames = TRUE), "ve", ",", "long")
#                   rn  mpg cyl disp  hp drat    wt  qsec vs am gear carb ve
# 1:         Mazda RX4 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4  4
# 2:         Mazda RX4 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4  2
# 3:     Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4  3
# 4:        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1  1
# 5:        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1  2
# 6:        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1  3
# 7:    Hornet 4 Drive 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1  5
# 8: Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2  6
# 9:           Valiant 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1  7

---

那么您想插入重复的行吗？我已经在我当前的项目中使用了data.table中的fread，所以我将使用它-非常好！

library(data.table)
setDT(expl)[, 
            strsplit(as.character(ve), ","), 
            c(names(expl)[-length(expl)])
            ]

setkey(expl, ve)[setDT(expl)[, strsplit(as.character(ve), ","), ve]]

library(splitstackshape)
cSplit(as.data.table(expl, keep.rownames = TRUE), "ve", ",", "long")
#                   rn  mpg cyl disp  hp drat    wt  qsec vs am gear carb ve
# 1:         Mazda RX4 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4  4
# 2:         Mazda RX4 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4  2
# 3:     Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4  3
# 4:        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1  1
# 5:        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1  2
# 6:        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1  3
# 7:    Hornet 4 Drive 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1  5
# 8: Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2  6
# 9:           Valiant 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1  7