在ggplot2图表的方面标题中结合文本和字体图标？

Question

是否可以在ggplot2图表的多面标题中插入来自fontawesome的图标？

我想将图标与文本结合起来

使用新列，将fontawesome-icon粘贴到标签上不会。还有另一种方法可以实现这一目标吗？

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