Embedded Files
去除文字標點符號數字
去除文字標點符號數字
R.article.data=strsplit(R.article.data,"更多更詳盡歌詞 在 ※ Mojim.com 魔鏡歌詞網")
R.article.data=strsplit(R.article.data,"更多更詳盡歌詞 在 ※ Mojim.com 魔鏡歌詞網")
a=R.article.data
a=R.article.data
a=gsub("[A-Za-z0-9]", "", a)
a=gsub("[A-Za-z0-9]", "", a)
a=removePunctuation(a)
a=removePunctuation(a)
定義斷詞器
定義斷詞器
cutter <- worker(bylines = F)
cutter <- worker(bylines = F)
b<-cutter[a]
b<-cutter[a]
write.csv(b, file = "C:/Users/Hua3/Desktop/0.csv")
write.csv(b, file = "C:/Users/Hua3/Desktop/0.csv")
b1=removeWords(b,c("的","作曲","作詞","編曲","監製","我","你","她","在","是","了","都","有","不","這","如","我們","也","但","著","很"))
b1=removeWords(b,c("的","作曲","作詞","編曲","監製","我","你","她","在","是","了","都","有","不","這","如","我們","也","但","著","很"))
詞彙頻率由大到小
詞彙頻率由大到小
c<- freq(b1)
c<- freq(b1)
c<- arrange(c, desc(freq))
c<- arrange(c, desc(freq))
head(c,20)
head(c,20)
Page updated
Google Sites
Report abuse