(Day14)玩一下文字雲的:
先準備資料先
segA:直接seqment(注意：都是table 注意轉型別)
segB_top50:僅取斷詞結果一個字以上的詞的前五十個詞
segC_top50:同上 方式小小不同
seg<-mixseg[as.character(dfl$title)]
segA<-data.frame(table(seg))
segB<-seg[nchar(seg)>1]#table
segB_top50<-sort(table(segB),decreasing = TRUE)[1:50]#table
segB_top50=as.data.frame(segB_top50)#table->data.frame
segC<-data.frame(table(seg[nchar(seg)>1]))#data.frame
segC_top50<-head(segC[order(segC$Freq,decreasing = TRUE),],50)
要怎麼用
已邀請的邦友 {{ invite_list.length }}/5
iThome鐵人賽
看影片追技術