将列中以逗号分隔的字符串拆分为单独的行

Question

将列中以逗号分隔的字符串拆分为单独的行我有一个数据框，如下所示：data.frame(director = c("Aaron Blaise,Bob Walker", "Akira Kurosawa",                          "Alan J. Pakula", "Alan Parker", "Alejandro Amenabar", "Alejandro Gonzalez Inarritu",                          "Alejandro Gonzalez Inarritu,Benicio Del Toro", "Alejandro González Iñárritu",                          "Alex Proyas", "Alexander Hall", "Alfonso Cuaron", "Alfred Hitchcock",                          "Anatole Litvak", "Andrew Adamson,Marilyn Fox", "Andrew Dominik",                          "Andrew Stanton", "Andrew Stanton,Lee Unkrich", "Angelina Jolie,John Stevenson",                          "Anne Fontaine", "Anthony Harvey"), AB = c('A', 'B', 'A', 'A', 'B', 'B', 'B', 'A', 'B', 'A', 'B', 'A'                         , 'A', 'B', 'B', 'B', 'B', 'B', 'B', 'A'))如您所见，director列中的某些条目是由逗号分隔的多个名称。我想将这些条目拆分为单独的行，同时保持另一列的值。例如，上面数据框中的第一行应该分成两行，director列中各有一个名称，列中有“A” AB。

Answer 1

命名原始data.frame v，我们有：

> s <- strsplit(as.character(v$director), ',')

> data.frame(director=unlist(s), AB=rep(v$AB, sapply(s, FUN=length)))

                      director AB

1                 Aaron Blaise  A

2                   Bob Walker  A

3               Akira Kurosawa  B

4               Alan J. Pakula  A

5                  Alan Parker  A

6           Alejandro Amenabar  B

7  Alejandro Gonzalez Inarritu  B

8  Alejandro Gonzalez Inarritu  B

9             Benicio Del Toro  B

10 Alejandro González Iñárritu  A

11                 Alex Proyas  B

12              Alexander Hall  A

13              Alfonso Cuaron  B

14            Alfred Hitchcock  A

15              Anatole Litvak  A

16              Andrew Adamson  B

17                 Marilyn Fox  B

18              Andrew Dominik  B

19              Andrew Stanton  B

20              Andrew Stanton  B

21                 Lee Unkrich  B

22              Angelina Jolie  B

23              John Stevenson  B

24               Anne Fontaine  B

25              Anthony Harvey  A

注意使用rep构建新的AB列。这里，sapply返回每个原始行中的名称数。