R 在ggplot2图表的刻面标题中组合文本和图标？

是否可以在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)

无法识别图标：

---

我无法使用

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"))

---

非常感谢！为什么使用

fontawesome（）

更难？最后，我想使用

fa图标