將列中以逗號分隔的字符串拆分為單獨的行我有一個數(shù)據(jù)框，如下所示：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列中的某些條目是由逗號分隔的多個名稱。我想將這些條目拆分為單獨的行，同時保持另一列的值。例如，上面數(shù)據(jù)框中的第一行應該分成兩行，director列中各有一個名稱，列中有“A” AB。
3 回答
郎朗坤
TA貢獻1921條經(jīng)驗 獲得超9個贊
命名原始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構(gòu)建新的AB列。這里，sapply返回每個原始行中的名稱數(shù)。
- 3 回答
- 0 關注
- 1217 瀏覽
添加回答
舉報
0/150
提交
取消