天眼查中的電話默認(rèn)放在一個單元格中

用;分割

現(xiàn)在手頭有2.3萬條天眼查記錄

清洗數(shù)據(jù)，需要把里面的電話拆開

一行只放一個電話號碼

開始時信心滿滿，寫個循環(huán)

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

結(jié)果跑了一個半小時

期間怕宕機，又不敢做別的，讓人崩潰

不甘心，換個思路，百度半天，

用sapply，數(shù)秒解決

?

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

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

總結(jié)

以上是生活随笔為你收集整理的拆分天眼查中的电话的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。