#Emoji Analizi Nedir?

#knitr::include_graphics(dosya yolu) resim eklemek için

#Emoji analizi için gerekli paketler emojifont() paketi yüklenir

library(emojifont)
## Warning: package 'emojifont' was built under R version 4.3.3

Emoji Karakterleri

Emojiyi kullanmak için karşılık gelen unicode’u kullanmamız gerekir. Emoji unicode’u search_emoji fonksiyonu ile bulunabilir. search_emoji fonksiyonu kelime anlamı benzer ya da içinde olan

search_emoji('smile')
## [1] "smiley"      "smile"       "sweat_smile" "smiley_cat"  "smile_cat"
emoji(search_emoji('smile'))
## [1] "😃" "😄" "😅" "😺" "😸"

R Grafiklerinde Emojiler

Temel Grafikler

set.seed(123) #veri setini aynı yerden böler herkese aynı sayılar gelecek

x<- rnorm(20)
class(x)
## [1] "numeric"
set.seed(321)
y<- rnorm(20)

class(y)
## [1] "numeric"
plot(x,y,cex=1)

text(x,y, labels = emoji('skull'),cex=3 ,,col = 'black',
     family='EmojiOne')

Yazı Aileleri

names(pdfFonts())
##  [1] "serif"                "sans"                 "mono"                
##  [4] "AvantGarde"           "Bookman"              "Courier"             
##  [7] "Helvetica"            "Helvetica-Narrow"     "NewCenturySchoolbook"
## [10] "Palatino"             "Times"                "URWGothic"           
## [13] "URWBookman"           "NimbusMon"            "NimbusSan"           
## [16] "URWHelvetica"         "NimbusSanCond"        "CenturySch"          
## [19] "URWPalladio"          "NimbusRom"            "URWTimes"            
## [22] "ArialMT"              "Japan1"               "Japan1HeiMin"        
## [25] "Japan1GothicBBB"      "Japan1Ryumin"         "Korea1"              
## [28] "Korea1deb"            "CNS1"                 "GB1"
set.seed(123) #veri setini aynı yerden böler herkese aynı sayılar gelecek

x<- rnorm(20)
class(x)
## [1] "numeric"
set.seed(321)
y<- rnorm(20)

class(y)
## [1] "numeric"
plot(x,y,cex=1)

text(x,y, labels = emoji('banana'),cex=3 ,,col = 'black',
     family='mono')

ggplot2 ile Grafikler

d<- data.frame(x=x,y=y,label=sample(c(emoji('nerd_face'),emoji('pouting_woman')),20,replace=TRUE),type=sample(LETTERS[1:5],20,replace = TRUE))

library("ggplot2")
## Warning: package 'ggplot2' was built under R version 4.3.2
ggplot(d,aes(x,y,color=type,label=label))+geom_text(family="EmojiOne",size=10)

ggplot()+geom_emoji("dog",color = 'red')+theme_void()

x=seq(0,2*pi,length=30)
y=sin(x)
ggplot()+geom_emoji('heartbeat',x=x,y=y,size=15)

fontawesome

set.seed(2024-03-28)

fa<-fontawesome(c('fa-github','fa-weibo','fa-twitter','fa-android','fa-coffee'))
d<- data.frame(x=rnorm(20),
               y=rnorm(20),
               
               label=sample(fa,20,replace=T)
               )

ggplot(d,aes(x,y,color=label,label=label))+geom_text(family='fontawesome-webfont',size=6)+xlab(NULL)+ylab(NULL)+theme(legend.text=element_text(family = 'fontawesome-webfont'))

ggplot()+geom_fontawesome("fa-wordpress",color = 'black')+theme_void()