ggplot2中表情符号作为标签无法正常显示的问题咨询

我拥有一个包含表情符号的tibble数据集，列名包含表情符号与文本，具体数据如下：

# A tibble: 4 x 2
# name number
# <chr> <dbl>
#1 🌿. 63150.
#2 👌🏻💪🏻💪🏻 1289.
#3 &👫 1387.
#4 🎀🎀 5055.

我使用以下R代码绘制柱状图：

library(dplyr)
library(ggplot2)
df %>% ggplot(aes(name, number))+ geom_bar(stat = 'identity')+ coord_flip()

但图表中的表情符号无法正常显示，请问该问题的原因是什么？

核心原因 #

表情符号无法正常渲染的问题，本质上是字体支持不足导致的，具体分为两点：

• 你的系统默认字体没有收录这些Emoji字符的字形：多数系统的默认字体（比如Windows的Arial、部分Linux发行版的默认无衬线字体）并不包含完整的Emoji字符集，ggplot在绘制时找不到对应的字符图形，就会显示成空白方块或者乱码。
• ggplot默认使用系统默认字体，不会自动切换到支持Emoji的字体：哪怕你的系统里已经安装了支持Emoji的字体，ggplot也不会主动识别，必须手动指定字体。

解决方案 #

根据你的操作系统，按照以下步骤操作即可解决：

1. 确保系统安装了支持Emoji的字体

• Windows：系统自带Segoe UI Emoji，无需额外安装。
• macOS：系统自带Apple Color Emoji，直接可用。
• Linux：需要手动安装Noto Color Emoji（以Debian/Ubuntu为例，执行命令：sudo apt install fonts-noto-color-emoji）。

2. 在ggplot中指定Emoji字体

修改你的绘图代码，通过theme()为轴标签指定支持Emoji的字体：

library(dplyr)
library(ggplot2)

# 根据系统自动匹配合适的Emoji字体
emoji_font <- case_when(
  .Platform$OS.type == "windows" ~ "Segoe UI Emoji",
  Sys.info()["sysname"] == "Darwin" ~ "Apple Color Emoji",
  TRUE ~ "Noto Color Emoji"
)

df %>% 
  ggplot(aes(name, number)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  # 指定y轴标签使用Emoji字体
  theme(axis.text.y = element_text(family = emoji_font))

额外注意（Windows用户）

如果是第一次在ggplot中使用非默认字体，可能需要先通过extrafont包注册系统字体：

install.packages("extrafont")
library(extrafont)
font_import() # 扫描系统字体，耗时约1-5分钟
loadfonts(device = "win") # 加载字体到R环境

完成注册后再运行绘图代码，表情符号就能正常显示了。

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