use*_*672 2 split r reshape2 tidyr
使用tidyr或reshape2转换此数据的最简单方法是什么:
data <- data.frame(
A=c(1,2,3),
B=c("b,g","g","b,g,q"))
Run Code Online (Sandbox Code Playgroud)
进入(例如,为变量中的每个逗号分隔值创建一行B):
A B
1 1 b
2 1 g
3 2 g
4 3 b
5 3 g
6 3 q
Run Code Online (Sandbox Code Playgroud)
尝试
library(splitstackshape)
cSplit(data, 'B', ',', 'long')
Run Code Online (Sandbox Code Playgroud)
或使用 base R
lst <- setNames(strsplit(as.character(data$B), ','), data$A)
stack(lst)
Run Code Online (Sandbox Code Playgroud)
要么
library(tidyr)
unnest(lst,A)
Run Code Online (Sandbox Code Playgroud)