天眼查中的电话默认放在一个单元格中
用;
分割
现在手头有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)))))
江湖中有太多秘籍,可惜我坐在井中,找不到