如何让ggplot中geom_text的字体大小匹配主题字体大小？

问题原因 #

ggplot中theme(text = element_text(size=10))里的size单位是磅（pt），而geom_text(size=10)的size默认单位是毫米（mm），单位差异导致数值相同但实际显示大小不一致。

解决方法 #

方法1：使用相对大小函数rel()

直接用rel(1)让geom_text继承主题的文本大小，无需手动换算：

set.seed(123)
n_points <- 10
data <- data.frame(
  x = runif(n_points, min = 0, max = 10),
  y = runif(n_points, min = 0, max = 10),
  label = letters[1:n_points]
)

ggplot(data, aes(x=x, y=y)) +
  geom_point(aes(color=factor(y))) +
  geom_text(aes(label = label, color=factor(y)), size = rel(1), vjust = -0.5) +  # 继承主题文本大小
  theme_minimal() +
  theme(text = element_text(size=10))

方法2：手动单位换算

由于1磅≈0.352778毫米，将主题的pt值乘以0.352778得到geom_text的mm值：

ggplot(data, aes(x=x, y=y)) +
  geom_point(aes(color=factor(y))) +
  geom_text(aes(label = label, color=factor(y)), size = 10 * 0.352778, vjust = -0.5) +  # 10pt换算为毫米单位
  theme_minimal() +
  theme(text = element_text(size=10))

方法3：动态提取主题大小并换算

适合主题可能变化的场景，先获取当前主题的文本大小再转换单位：

# 获取主题文本大小（单位：pt）
theme_text_size <- theme_get()$text$size
# 转换为geom_text使用的毫米单位（1mm≈2.83464pt）
geom_text_size <- theme_text_size / 2.83464

ggplot(data, aes(x=x, y=y)) +
  geom_point(aes(color=factor(y))) +
  geom_text(aes(label = label, color=factor(y)), size = geom_text_size, vjust = -0.5) +
  theme_minimal() +
  theme(text = element_text(size=10))

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