The working R Code

library(ggplot2)
library(emojifont)
load.fontawesome()

## Generate some data
DF <- data.frame(x=1:5, y=1:5)

ggplot(DF, aes(x=x, y=y)) + 
     geom_text(label=fontawesome(c('fa-check-circle', 'fa-linux', 'fa-meetup', 'fa-github', 'fa-eur')), 
               family='fontawesome-webfont', 
               size=seq(6, 14, 2))

Leave a comment on github