agg_png("wineglass.png", width = 1000, height = 500, res = 144)
ggplot(mtcars, aes(wt, mpg)) +
  geom_text(
    label=fontawesome(c('fa-assistive-listening-systems')),
    family='fontawesome-webfont', aes(color = as.character(gear)),
            size=10) +
  scale_color_discrete(name = "gear") +
  theme(text = element_text(family = "fontawesome-webfont"))
invisible(dev.off())

Leave a comment on github