Question

我正在尝试在R中使用ggplot2制作带标签的气泡图。这是简化的方案：

我有一个包含4个变量的数据框：3个定量变量，x，y和z，以及另一个标记点lab的变量。< / p>

我想制作散点图，其中位置由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")

编辑：我应该提一下，我在geom_text中尝试了hjust和vjust，但它没有产生预期效果。

# 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

看来，_ ***位置无法访问其他图层使用的比例，所以这是不行的。您可以复制GeomText，根据映射的大小移动标签，但对于一个非常脆弱和脆弱的解决方案来说，这是一项很大的努力，

enter image description here

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")

Answer 2

这不是一般的解决方案，因为您每次都需要调整它，但是您应该能够为文本的x值添加一些值。 s线性取决于z。

我好运

ggplot(aes(x=x, y=y), data=df) + 
    geom_point(aes(size=z)) + 
    geom_text(aes(label=lab, x = x + .06 + .14 * (z - min(z))), 
              colour="red") +
    scale_size_continuous(range=c(5, 50), guide="none")

但是，由于字体大小取决于您的窗口大小，您需要决定输出大小并相应地进行调整。我从x = x + .05 + 0 * (z-min(z))开始并根据最小点校准截距，然后当我对此感到满意时，我将线性项调整为最大点。

Answer 3

另一种选择。您的测试数据看起来不错，但您需要检查它的一般情况。

dodge <- abs(scale(df$z))/4

ggplot(data = df, aes(x = x, y = y)) + 
  geom_point(aes(size = z)) +
  geom_text(aes(x = x + dodge), label = df$lab, colour = "red") +
  scale_size_continuous(range = c(5, 50), guide = "none")

<强>更新刚试过position_jitter，但width参数只取一个值，所以现在我不确定该函数有多大用处。但我很高兴发现我错了。另一个小数据集的示例：

df3 <- mtcars[1:10, ]
ggplot(data = df3, aes(x = wt, y = mpg)) +
  geom_point(aes(size = qsec), alpha = 0.1) +
  geom_text(label = df3$carb, position = position_jitter(width = 0.1, height = 0)) +
  scale_size_continuous(range = c(5, 50), guide = "none")

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

3 个答案: