r - 如何添加 geom_text 或 geom_label 以及相对于 geom_point 大小的位置？

Question

我想做的是，向使用 geom_point 制作的点添加标签，这些点具有映射到大小的变量。该值也显示在标签中。文本或标签应位于 geom_point 的正下方，但使用position_nudge 似乎不可能实现此目的。

我的代码目前如下所示(简化):

ggplot(data, aes(x = var1, y = var2) +
   geom_point(aes(size = var3)) +
   geom_text(aes(label = var3))

结果是这样的

但我正在努力实现这样的目标:

有什么方法可以简单地实现这一点吗？

谢谢。

编辑:我试图让 geom_point 的边界和标签的边界之间的距离为固定值。

Answer 1

可以通过缩放大小并将其添加到到点的vjust距离来解决该问题。

library(ggplot2)

ggplot(data, aes(x = var1, y = var2)) +
  geom_point(aes(size = var3), show.legend = FALSE) +
  geom_text(aes(label = var3, vjust = 1.5 + 0.1 * var3))

测试数据

data <- data.frame(var1 = factor(rep(1:3, 2)),
                   var2 = factor(rep(1:2, each = 3)),
                   var3 = c(3, 10, 2, 1, 1, 10))