如何巧妙地将文本标签放置在 ggplot2 中不同大小的点旁边？

Question

我正在尝试ggplot2在 R 中制作带标签的气泡图。这是简化的场景：

我有4个变量的数据帧：3定量变量，x，y，和z，而另一个标签的点的变量，lab。

我想做一个散点图，其中位置由x和确定y，点的大小由 确定z。然后我想将文本标签放置在点旁边（例如，在点的右侧）而不与点顶部的文本重叠。

如果点的大小没有变化，我可以尝试geom_text通过添加缩放常数（例如aes(x=x+1, y=y+1)）来简单地修改图层的美感。但是，即使在这种简单的情况下，我也无法正确定位文本，因为这些点不随绘图的输出尺寸缩放。换句话说，点的大小在 500x500 绘图和 1000x1000 绘图中保持不变 - 它们不会随着输出绘图的尺寸而放大。

因此，我认为我必须通过输出图的大小（例如尺寸）来缩放标签的位置，或者我必须以ggplot某种方式获取点的半径并移动我的文本标签。有没有办法做到这一点ggplot2？

这是一些代码：

# Stupid data
df <- data.frame(x=c(1,2,3), 
                 y=c(1,2,3), 
                 z=c(1,2,1),
                 lab=c("a","b","c"), stringsAsFactors=FALSE)

# Plot with bad label placement
ggplot(aes(x=x, y=y), data=df) + 
  geom_point(aes(size=z)) + 
  geom_text(aes(label=lab), 
            colour="red") +
  scale_size_continuous(range=c(5, 50), guide="none")

编辑：我要提，我想hjust和vjustgeom_text内，但它并没有产生预期的效果。

# Trying hjust and vjust, but it doesn't look nice
ggplot(aes(x=x, y=y), data=df) + 
  geom_point(aes(size=z)) + 
  geom_text(aes(label=lab), hjust=0, vjust=0.5, 
            colour="red") +
  scale_size_continuous(range=c(5, 50), guide="none")

编辑：多亏了 Henrik 和 shujaa，我现在设法得到了一些有用的东西。以防万一有人分享更通用的解决方案，我将让问题悬而未决。

只是我使用它的简介：我正在绘制地图，并用一个与观察到的降水量成比例大小的点来指示某些站点的降水量。我想以美观的方式在每个点旁边添加一个车站标签。我将为不同的区域制作更多这样的图，并且我的输出图对于每个图可能具有不同的分辨率或比例（例如，由于不同的投影），因此需要一个通用的解决方案。position_jitter如果我周末有时间，我可能会尝试创建一个自定义，就像 baptiste 建议的那样。

Answer 1

看来position_***无法访问其他层使用的比例，所以这是不行的。您可以克隆 GeomText，根据映射的大小移动标签，但这对于一个非常笨拙且脆弱的解决方案来说需要付出很大的努力，

geom_shiftedtext <- function (mapping = NULL, data = NULL, stat = "identity", 
                       position = "identity", 
                       parse = FALSE, ...) { 
  GeomShiftedtext$new(mapping = mapping, data = data, stat = stat, position = position, 
               parse = parse, ...)
}
require(proto)
GeomShiftedtext <- proto(ggplot2:::GeomText, {
  objname <- "shiftedtext"
  draw <- function(., data, scales, coordinates, ..., parse = FALSE, na.rm = FALSE) {
    data <- remove_missing(data, na.rm, 
                           c("x", "y", "label"), name = "geom_shiftedtext")

    lab <- data$label
    if (parse) {
      lab <- parse(text = lab)
    }

    with(coord_transform(coordinates, data, scales),
         textGrob(lab, unit(x, "native") + unit(0.375* size, "mm"), 
                  unit(y, "native"), 
                  hjust=hjust, vjust=vjust, rot=angle, 
                  gp = gpar(col = alpha(colour, alpha), 
                            fontfamily = family, fontface = fontface, lineheight = lineheight))

         )
  }

})


df <- data.frame(x=c(1,2,3), 
                 y=c(1,2,3), 
                 z=c(1.2,2,1),
                 lab=c("a","b","c"), stringsAsFactors=FALSE)

ggplot(aes(x=x, y=y), data=df) + 
  geom_point(aes(size=z), shape=1) + 
  geom_shiftedtext(aes(label=lab, size=z),
            hjust=0, colour="red") +
  scale_size_continuous(range=c(5, 100), guide="none")