Sys.setlocale(category ="LC_ALL", locale ="zh_TW.UTF-8")# 避免中文亂碼 ## Warning in Sys.setlocale(category = "LC_ALL", locale = "zh_TW.UTF-8"): 作業系統 ## 回報無法實現設定語區為 "zh_TW.UTF-8" 的要求 ## [1] "" 安裝需要的packages 載入package Dataset —三國志演義 # 下載...
Sys.setlocale(category ="LC_ALL", locale ="zh_TW.UTF-8")# 避免中文亂碼 ## Warning in Sys.setlocale(category = "LC_ALL", locale = "zh_TW.UTF-8"): OS ## reports request to set locale to "zh_TW.UTF-8" cannot be honored ...
json_res <- topicmodels_json_ldavis(topic_10,song_dtm) serVis(json_res,open.browser =T)# 如果無法開啟視窗(windows用戶)可執行這段#serVis(json_res, out.dir = "vis", open.browser = T)#writeLines(iconv(readLines("./vis/lda.json"), to = "UTF8")) LDA後續分析 根據前面的探索之後,我們...