How about wordcloud

本文不是学习，穷开心而已，作为根本就不知浪漫何物的直男，突发奇想而已，决定将来用她的名字精心设计一个wordcloud向她表白（也可能没有机会啦）。

我如果爱你——
绝不像攀援的凌霄花，
借你的高枝炫耀自己；
我如果爱你——
绝不学痴情的鸟儿，
为绿荫重复单调的歌曲；
也不止像泉源，
常年送来清凉的慰藉；
也不止像险峰，
增加你的高度，衬托你的威仪。
甚至日光，
甚至春雨。

####Wordcloud

library('devtools')
install_github("lchiffon/wordcloud2")
library('wordcloud2')
##
demoFreq##词频数据格式
##由此观察data格式
##rownames为word,colum1为word,col2为词频frequency

##参数设置如下
##data：词云生成数据，包含具体词语以及频率；
##size：字体大小，默认为1，一般来说该值越小，生成的形状轮廓越明显；
##fontFamily：字体，
##fontWeight：字体粗细，；
##color：字体颜色，可以选择‘random-dark’以及‘random-light’，其实就是颜色色系；
##backgroundColor：背景颜色，支持R语言中的常用颜色，如‘gray’，‘blcak’，
##minRontatin与maxRontatin：字体旋转角度范围的最小值以及最大值，选定后，字体会在该范围内随机旋转；
##rotationRation：字体旋转比例，如设定为1，则全部词语都会发生旋转；

##shape：词云形状选择，默认是‘circle’，即圆形。还可以选择‘cardioid’（苹果形或心形），‘star’（星形），‘diamond’（钻石），‘triangle-forward’（三角形），‘triangle’（三角形），‘pentagon’（五边形）；
wordcloud2(demoFreq, size = 1, minSize = 0,gridSize = 0,
           fontFamily = 'Segoe UI', fontWeight = 'bold', color ='random-dark',  
           
           backgroundColor = "white", minRotation = -pi/4, maxRotation =pi/4,
           
           shuffle = TRUE, rotateRatio = 0.4, shape = 'cardioid',  
           
           ellipticity =0.65, widgetsize = NULL, figPath = NULL, hoverFunction = NULL)

##Letter Cloud
letterCloud(demoFreq,word="HP",size= 2,color='random-dark')