ggplot：annotate() 的大小与 element_text() 的大小

我在协调情节中不同元素的大小方面遇到了一些麻烦。具体来说，我希望注释的大小与 y 轴标题的大小相同。

然而，以下代码会产生不同的大小：

library(ggplot2)
test_data <- data.frame(x = c(1), y = c(1))
ggplot(test_data) +
  geom_point(aes(x = x, y = y)) +
  theme_bw(base_size = 14) +
  annotate("text", label = "A", x = 0.975, y = 1.025, size = unit(14, "pt")) +
  ylab("Why not the same size?") +
  theme(axis.title.y = element_text(size = unit(14, "pt")))

是什么赋予了？

annotate实际上只是创建了一个新的geom_text层。如果你查看源代码GeomText$draw_panel你会看到绘制的文本geom_text图层最终由grid::textGrob，其字体大小由表达式决定：

fontsize = data$size * .pt

在那里我们可以看到size参数由（隐藏）全局变量自动放大.pt。你可以看到的值.pt如果您在控制台中输入：

.pt
#> [1] 2.845276

由于某种原因，此缩放比例不适用于size参数输入element_text， 虽然element_text最终也使用grid::textGrob (via ggplot2:::title_spec）。这可能有一个我不知道的充分理由。

无论如何，最重要的是，如果你想要一个geom_text（或者，通过扩展，annotation("text")）来匹配的大小element_text，您可以将注释的大小除以.pt或乘以element_text尺寸由.pt:

library(ggplot2)

test_data <- data.frame(x = c(1), y = c(1))
ggplot(test_data) +
  geom_point(aes(x = x, y = y)) +
  theme_bw(base_size = 14) +
  annotate("text", label = "Now the same size", x = 0.975, y = 1, 
           angle = 90, size = 14/.pt) +
  ylab("Now the same size") +
  theme(axis.title.y = element_text(size = 14))

^{Created on 2020-11-30 by the reprex package (v0.3.0)}