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