拆分天眼查中的电话

天眼查中的电话默认放在一个单元格中

用;分割

现在手头有2.3万条天眼查记录

清洗数据，需要把里面的电话拆开

一行只放一个电话号码

开始时信心满满，写个循环

for(i in j:length(t1)){
  tmp <- bind_cols(ty$公司名称[i],ty$法定代表人[i],unlist(t1[[i]]))
  fwrite(tmp,'ds.csv',append = TRUE)
}

结果跑了一个半小时

期间怕宕机，又不敢做别的，让人崩溃

不甘心，换个思路，百度半天，

用sapply，数秒解决

 

# 先分列
t1 <- str_split(tyh$tl,";")
as.data.table(t(sapply(t1,'[',i=1:max(sapply(t1,length)))))

江湖中有太多秘籍，可惜我坐在井中，找不到