Объединить текст и внушительный значок в названиях фасетов в диаграмме ggplot2?

Question

Можно ли вставить значок из fontawesome в заголовок фасета диаграммы ggplot2?

Я хотел бы объединить значок с текстом:

Используя новый столбец, который вставляетсязначок fontawesome на этикетке не имеет.Есть ли другой способ добиться этого?

library(ggplot2)
library(emojifont)

mpg %>% 
mutate(fa_class = paste0(fontawesome('fa-linux'), class)) %>% 
ggplot(aes(x = year, y = displ)) +
geom_point() +
facet_wrap(~ fa_class)

Значки не распознаются:

Answer 1

Не удалось найти простое исправление с помощью fontawesome(), но, поскольку вы используете emojifont, вы можете использовать функцию emoji() и затем изменить семейство шрифтов.

library(tidyverse)
library(emojifont)

mpg %>% 
  mutate(fa_class = paste(emoji("car"), class)) %>%
  ggplot(aes(x = year, y = displ)) +
  geom_point() +
  facet_wrap(~ fa_class) +
  theme(strip.text = element_text(family = "EmojiOne"))