每每以為攀得眾山小，可、每每又切實來到起點，大牛們，緩緩腳步來俺筆記葩分享一下吧，please~

———————————————————————————

筆者看到微信公眾號探數尋理中提到郎大為Chiffon老師的wordcloud2，於是嚐鮮準備用一下。但是在下載的時候，遇見很多問題，安裝問題困擾著。。。

包中函式本身很好用，很簡單，而且圖形眾多。

————————————————————————————————————————————

一、wordcloud2包的安裝

官方郎大為老師github部落格連結：https://github.com/Lchiffon/wordcloud2

老師的中文部落格連結：http://lchiffon.github.io/2016/06/01/wordcloud2.html

官方下載方法：

install.packages('devtools')
devtools::install_github("lchiffon/wordcloud2")

Downloading GitHub repo lchiffon/[email protected]
from URL https://api.github.com/repos/lchiffon/wordcloud2/zipball/master
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Problem with the SSL CA cert (path? access rights?)
 

library(RCurl)
library(httr)
set_config( config( ssl_verifypeer = 0L ) )

Error in read.dcf(file.path(pkgname, "DESCRIPTION"), c("Package", "Type")) : 
  無法開啟鏈結

問題的關鍵可能是：jsonlite這個包以及curl中的一些設定。

————————————————————————————————————————————

二、wordcloud2函式說明

wordcloud2(data, size = 1, minSize = 0, gridSize =  0,
    fontFamily = NULL, fontWeight = 'normal',
    color = 'random-dark', backgroundColor = "white",
    minRotation = -pi/4, maxRotation = pi/4, rotateRatio = 0.4,
    shape = 'circle', ellipticity = 0.65, widgetsize = NULL)

常用引數：

（1）data：詞雲生成資料，包含具體詞語以及頻率；

（2）size：字型大小，預設為1，一般來說該值越小，生成的形狀輪廓越明顯；

（3）fontFamily：字型，如‘微軟雅黑’；

（4）fontWeight：字型粗細，包含‘normal’，‘bold’以及‘600’；；

（5）color：字型顏色，可以選擇‘random-dark’以及‘random-light’，其實就是顏色色系；

（6）backgroundColor：背景顏色，支援R語言中的常用顏色，如‘gray’，‘blcak’，但是還支援不了更加具體的顏色選擇，如‘gray20’；

（7）minRontatin與maxRontatin：字型旋轉角度範圍的最小值以及最大值，選定後，字型會在該範圍內隨機旋轉；

（8）rotationRation：字型旋轉比例，如設定為1，則全部詞語都會發生旋轉；

（9）shape：詞雲形狀選擇，預設是‘circle’，即圓形。還可以選擇‘cardioid’（蘋果形或心形），‘star’（星形），‘diamond’（鑽石），‘triangle-forward’（三角形），‘triangle’（三角形），‘pentagon’（五邊形）；

————————————————————————————————————————————

三、官方包中的幾個案例

1、案例一：星星圖

library(wordcloud2)
wordcloud2(demoFreq, size = 1,shape = 'star')

案例二：中文詞雲

wordcloud2(demoFreqC, size = 2, fontFamily = "微軟雅黑",
           color = "random-light", backgroundColor = "grey")

案例三：

wordcloud2(demoFreq, size = 2, minRotation = -pi/2, maxRotation = -pi/2)

案例四：

wordcloud2(demoFreq, size = 2, minRotation = -pi/6, maxRotation = -pi/6,
  rotateRatio = 1)

案例五：浩彬老撕的高考案例

資料來源：連結: http://pan.baidu.com/s/1jI4gEnc 密碼: uids

data <- read.csv('c:/data.csv', sep="," ,header = T)
#讀取原始資料
data
#檢查資料，檢視是否存在亂碼的情況
wordcloud2(data, size = 1, shape='star',color = 'random-dark',
backgroundColor = "white",fontFamily = "微軟雅黑")
#繪製文字雲，其中data就是我們讀取的資料，size是對應文字大小，shape是繪製形狀

案例六：浩彬老撕的高考案例

wordcloud2(demoFreqC, size = 1,color = 'random-light',
backgroundColor = "gray", fontWeight='bold',fontFamily = "微軟雅黑",
minRotation = -pi/3, maxRotation = pi/3,rotateRatio = 0.8)

——————————————————————————————————————————————————————————

6月12日更新——自定義圖片+文字雲

從浩彬老師公眾號，看到wordcloud2更新了自定義圖片形狀、文字詞雲形狀。

已經安裝過wordcloud2包的童鞋，因為已經更新了，所以需要重新安裝。

install.packages('devtools')
devtools::install_github("lchiffon/wordcloud2")

1、自定義圖片程式碼

batman = system.file("examples/batman.png",package = "wordcloud2")
###讀取形狀圖片，注意圖片預設放在wordclou2的sample包中，浩彬老撕的路徑如下："d:/Program Files/R/R-3.3.0/library/wordcloud2/examples/batman.png"
wordcloud2(demoFreq, figPath = batman, size = 1,color = "black")
###繪製雲此圖，其中demoFreg即為所用的資料，figPath = batman為所用圖片

2、文字雲

有些時候，我們除了需要自定義形狀，可能也需要形成文字，這就需要用到wordcloud2中的新函式letterCloud

程式碼：

letterCloud(demoFreq, word = "高考", wordSize = 2,color = 'random-dark',backgroundColor = "snow")
###其中demoFreqC為需要用的詞語以及詞頻資料，word是需要視覺化的文字

————————————————————————————————————————————————————————

應用一：報錯Error in gsub

Error in gsub("</", "\\u003c/", payload, fixed = TRUE) : 
  invalid multibyte string at '<88>,<32>3754","鍟婂晩","榪欎釜","鍠滄","浠€涔<88>,6390","鎴戠殑","鍙埍","鍝堝搱","鍗фЫ","寮瑰箷","鎬庝箞","涓€涓<aa>,4357","浣犱滑","琛ㄧ櫧","鎰熻","榪欎箞","鍙互","娌℃湁","瑙夊緱","鍓嶉潰","閭ｄ釜","鐭ラ亾","涓轟粈涔<88>,2586","鑷繁","榪欐牱","濂界湅","鐪嬪埌","鎵垮寘","鍑烘潵","濂藉儚","涓€鐩<b4>,2051","鍘夊浜<86>,2007","寮€濮<8b>,1975","鎴戜滑","鑰佽強","鑰佸笀","榪欓噷","宸茬粡","鐜板湪","鏃跺€<99>,1739","澹伴煶","濡瑰瓙","鍝ュ摜","鍘夊浜嗘垜鐨<84>,1586","鑰佸﹩","姝ょ敓","鏈夌偣","涓€鏍<b7>,1497","琛ㄧず","蹇冪柤","璁告効","鐪熺殑","閭ｄ箞","涓嶉敊","絳夌瓑","鍒蛋","涓嶈兘","榪欑","紜竵","鍘夊","濂藉ソ","鎵€浠<a5>,1234","瀛楀箷","涓浗","鍏跺疄","娓告垙","鍥犱負","灞呯劧","涓€璧<b7>,1168","澶у","浠ヤ負","搴旇","璧鋒潵","涓€涓<8b>,1132","涓嶈","灝村艾","濂崇","鍥炴潵","涓栫晫","瀛╁瓙","濡傛灉","鍗佸厓","琛ｆ湇","鍙戠幇","涓轟簡","濡堝","鐖哥埜","鍚堝獎","浣嗘槸","瑙嗛","緋誨垪","濮愬","婕備寒","絎竴

      於是筆者也在低版本下嘗試了很多種可能性譬如：

      1、強行轉化格式成UTF8，變成了一對文字亂碼；

      2、匯出後轉化為UTF8格式，匯出沒問題，但是匯入的時候出現了一堆亂碼的情況，還是失敗；

      於是乎，換了高版本的R之後，問題自然而然就解決了...  原因呢，筆者自然是不知道為什麼...

      來看看官方、作者的解決方案：

      方法一:將文字轉化為UTF-8

      方法二：使用前先：Sys.setlocale("LC_CTYPE","eng")

      筆者應用方法二完美解決問題了

每每以為攀得眾山小，可、每每又切實來到起點，大牛們，緩緩腳步來俺筆記葩分享一下吧，please~

———————————————————————————