Rで絵文字を利用する方法

Reference – https://twitter.com/Rbloggers/status/671539270578868224
Script
library(emoGG)
library(ggplot2)
library(scales)
emoji_search("happy")
emoji_search("sad")
dataset[0<dataset[,2],3]<-"1f604"
dataset[0>=dataset[,2],3]<-"1f622"
colnames(dataset)[3]<-"feeling"  
g<-ggplot(dataset,aes(dataset[,1],dataset[,2],emoji=feeling))+geom_emoji()
g<-g+xlab("")+ylab(colnames(dataset)[2])+scale_x_date(labels=date_format("%Y/%m/%d"))
g<-g+theme(axis.text.x=element_text(size=20))          
g<-g+theme(axis.text.y=element_text(size=20,angle=90,hjust=0.5))          
g<-g+theme(axis.title.x=element_text(size=20))          
g<-g+theme(axis.title.y=element_text(size=20))
g
Result
> emoji_search("happy")
           emoji  code    keyword
3       grinning 1f600      happy
6           grin 1f601      happy
13           joy 1f602      happy
16        smiley 1f603      happy
20         smile 1f604      happy
28   sweat_smile 1f605      happy
30      laughing 1f606      happy
47          wink 1f609      happy
52         blush 1f60a      happy
62           yum 1f60b      happy
270      joy_cat 1f639      happy
274   smiley_cat 1f63a      happy
1010     rainbow 1f308      happy
2733           a 1f170 red-square
2734           a 1f170   alphabet
2735           a 1f170     letter

> emoji_search("sad")
               emoji  code     keyword
104            sweat 1f613         sad
108          pensive 1f614         sad
162     disappointed 1f61e         sad
178              cry 1f622         sad
210            weary 1f629         sad
227              sob 1f62d         sad
290  crying_cat_face 1f63f         sad
479  person_frowning 1f64d         sad
1470    broken_heart 1f494         sad
2689              sa 1f202    japanese
2690              sa 1f202 blue-square
2691              sa 1f202    katakana
2733               a 1f170  red-square
2734               a 1f170    alphabet
2735               a 1f170      letter

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移