ggplot图例中UTC符号垂直对齐问题求助

针对Windows 10系统下，ggplot图例同时包含8位(\u)和16位(\U)Unicode符号时出现的垂直错位问题，提供以下几种实用解决方案：

方法1：用ggtext包渲染带格式的图例标签 #

ggtext支持HTML/markdown格式的标签，能通过CSS样式强制统一符号的垂直对齐，是最省心的解决方式：

1. 先安装并加载依赖包：

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

2. 修改图例标签，用<span>标签指定垂直对齐样式，再用element_markdown渲染：

# 样本数据
df <- data.frame(
  x = 1:3,
  y = 1:3,
  group = c(
    "A <span style='vertical-align: middle;'>\u2605</span>",
    "B <span style='vertical-align: middle;'>\U0001F1EA</span>",
    "C <span style='vertical-align: middle;'>\u2713</span>"
  )
)

# 绘图
ggplot(df, aes(x, y, color = group)) +
  geom_point(size = 5) +
  theme_minimal() +
  guides(color = guide_legend(label.theme = element_markdown(lineheight = 1.2)))

方法2：手动调整图例Grob对象 #

如果ggtext不适用，可以直接用grid包修改图例的底层图形元素，精准调整错位符号的位置：

library(ggplot2)
library(grid)

# 样本数据与原图
df <- data.frame(
  x = 1:3,
  y = 1:3,
  group = c("A \u2605", "B \U0001F1EA", "C \u2713")
)

p <- ggplot(df, aes(x, y, color = group)) +
  geom_point(size = 5) +
  theme_minimal()

# 提取图例并调整错位标签的垂直位置
g <- ggplotGrob(p)
leg_box <- g$grobs[[which(g$layout$name == "guide-box")]]
leg <- leg_box$grobs[[1]]

# 找到标签文本容器，调整第2个标签（对应\U符号）的y轴偏移
label_grob <- leg$grobs[[which(leg$layout$name == "label")]]$children[[1]]
label_grob$y[2] <- unit(0.5, "npc") + unit(2, "pt") # 可根据实际偏移调整数值

# 替换图例并绘图
leg$grobs[[which(leg$layout$name == "label")]]$children[[1]] <- label_grob
leg_box$grobs[[1]] <- leg
g$grobs[[which(g$layout$name == "guide-box")]] <- leg_box

grid.draw(g)

方法3：统一符号的字体渲染 #

Windows系统下的字体基线差异是错位根源，尝试用统一的图标字体（如Font Awesome）替换原生Unicode符号，避免不同字符的度量差异：

install.packages("emojifont")
library(ggplot2)
library(emojifont)

# 加载字体
load.fontawesome()

# 用Font Awesome的图标编码替换对应符号
df <- data.frame(
  x = 1:3,
  y = 1:3,
  group = c("A \uf005", "B \U0001F1EA", "C \uf00c")
)

# 指定字体绘图
ggplot(df, aes(x, y, color = group)) +
  geom_point(size = 5) +
  theme_minimal() +
  theme(text = element_text(family = "fontawesome-webfont"))

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