열 데이터 R 분열

전송 : https://mp.weixin.qq.com/s/tuEuAJr3MJ-M5BFr70CJbA

질문 : 세미콜론 세퍼레이터 4 개로 분할 한 후 두 번째 열에 따라

options(stringsAsFactors = F)

a=data.frame(x=c('A','B','C'),
             y=c('TP53','KCNMA1;RP11-443A13.5','BRCA1'))
a
do.call(rbind,lapply(1:nrow(a), function(i){
  x=as.character(a[i,])
  return(data.frame(sample=x[1],
                    gene=unlist(strsplit(x[2],";")[[1]])))
}))