我有一个这样的数据框，其中的值由逗号分隔.
# Events
# A,B,C
# C,D
# B,A
# D,B,A,E
# A,E,B
我想要下一个数据帧
# Event1 Event2 Event3 Event4 Event5
# A B C NA NA
# NA NA C NA NA
# A B NA NA NA
# A B NA D E
# A B NA NA E
我试过cSplit，但没有想要的df.可能吗？
NOTE: The values doesn't appear in the same possition as the variable Event in the second dataframe.
1)这是一个基本R解决方案.拆分给出列表s的每一行，并创建包含可能值的cols.然后迭代s并将其转换为数据帧.
请注意，这不会对列名进行硬编码，即使某些列名是其他列名的子字符串，也会继续工作.
s <- strsplit(DF$Events, ",")
cols <- unique(sort(unlist(s)))
data.frame(Event = t(sapply(s, function(x) ifelse(cols %in% x, cols, NA))))
给:
Event.1 Event.2 Event.3 Event.4 Event.5
1 A B C <NA> <NA>
2 <NA> <NA> C D <NA>
3 A B <NA> <NA> <NA>
4 A B <NA> D E
5 A B <NA> <NA> E
2)由于stack需要一个命名列表，因此该基本R解决方案使用上述strsplit，然后命名组件，然后调用stack.然后，我们使用tapply将其扩展为一个广泛的形式，并将其转换为一个数据帧并修复名称.
s <- strsplit(DF$Events, ",")
names(s) <- seq_along(s)
stk <- stack(s)
mat <- t(tapply(stk$values, stk, c))
colnames(mat) <- NULL
data.frame(Event = mat)
给:
Event.1 Event.2 Event.3 Event.4 Event.5
1 A B C <NA> <NA>
2 <NA> <NA> C D <NA>
3 A B <NA> <NA> <NA>
4 A B <NA> D E
5 A B <NA> <NA> E
这也可以表示为R 4.2+管道:
DF |>
with(setNames(Events, seq_along(Events))) |>
strsplit(",") |>
stack() |>
with(tapply(values, data.frame(ind, values), c)) |>
`colnames<-`(NULL) |>
data.frame(Event = _)
可复制形式的输入:
Lines <- "Events
A,B,C
C,D
B,A
D,B,A,E
A,E,B"
DF <- read.table(text = Lines, header = TRUE, strip.white = TRUE)