最近搜到GSE21653,提取临床信息部分，发现，多个行出现了，列之间串掉了；

• 本来是把整个下载到的.gz文件解压后，在txt部分作了更改，但发现串的行数还挺多的；觉得，grep进行行的提取比较合适；

a<- do.call(rbind,lapply(1:nrow(pd21653),
                     function(x){
  dfs<- as.numeric(gsub('.+:','',grep('dfs evt',pd21653[x,],value=T)))[1]
  dfs.time<- as.numeric(gsub('.+:','',grep('dfs time',pd21653[x,],value=T)))[1]
  patient<- pd21653[x,2]
  re<- c(patient,OS,OS.time)
  names(re) <- c('patient','d'f's','dfs.time')
  return(re)}
  )
  )