ggplot中facet_wrap标签无法正常显示emoji的问题求助

问题重现 #

数据集内的Emoji可正常存储，但facet_wrap()的分面标签无法正确渲染Emoji（已知坐标轴标签支持Emoji显示）。可复现代码如下：

library(emojifont)
facets <- sprintf(c('✓', emoji("smile")))

set.seed(123)
my_df <- data.frame(x = runif(40), y = runif(40), 
            z = rep(facets, each=20),
            stringsAsFactors = FALSE)

ggplot(my_df, aes(x, y, color=z)) + 
  geom_point() + 
  facet_wrap(~z) +
  theme(legend.position = 'none')

解决方案 #

方法1：用ggtext包解析Markdown #

ggtext支持让分面标签解析Markdown/Emoji，是兼容性最强的方案：

1. 安装并加载包：

install.packages("ggtext")
library(ggtext)

2. 修改主题配置，启用分面标签的Markdown解析：

ggplot(my_df, aes(x, y, color=z)) + 
  geom_point() + 
  facet_wrap(~z) +
  theme(
    legend.position = 'none',
    strip.text = element_markdown() # 核心设置：让标签支持Emoji渲染
  )

方法2：指定系统支持Emoji的字体 #

无需额外安装包时，可通过指定系统内置的Emoji字体解决：

ggplot(my_df, aes(x, y, color=z)) + 
  geom_point() + 
  facet_wrap(~z) +
  theme(
    legend.position = 'none',
    strip.text = element_text(family = "Segoe UI Emoji") # Windows系统示例字体
    # Mac系统替换为"Apple Color Emoji"，Linux替换为"Noto Color Emoji"
  )

注意事项 #

• 方法1无需考虑系统字体差异，适配性更好；
• 方法2需确保系统已安装对应字体，不同操作系统的Emoji字体名称需自行调整。

内容的提问来源于stack exchange，提问作者user12344905