ggtext labels fontawesome

ggtext_labels_fontawesome.R

library(ggtext)
library(ggplot2)
library(fontawesome)

fa_html = function(icon) {
    fa_png(icon)
    paste0("<img src='", icon, ".png' width='20'>")
}

icons_map = c(
  setosa = 'car',
  virginica = 'ban',
  versicolor = 'star'
)

(
    ggplot(iris, aes(Species, Sepal.Width, fill=Species))
    + geom_boxplot()
    + scale_fill_discrete(
        labels=function(label) paste0(
            sapply(icons_map[label], fa_html),
            '<br>',
            label
        )
    )
    + theme(legend.text=element_markdown())
)