ggrepel：在数据点上方添加标签

Question

我希望在可能的情况下，精确地在点上方绘制标签（不重叠），但ggrepel似乎坚持在稍微上方或下方绘制。 例如：

require(ggplot); require(ggrepel)

ggplot(iris[1:10,], aes(Sepal.Length, Sepal.Width)) + 
  geom_point(pch=1, size=8) +
  geom_text_repel(aes(label=Species), segment.color=NA, 
                  point.padding=unit(0, "lines")) 

您当然可以减少force参数，但这样标签重叠时它们就不会相互排斥。

- geotheory

Answer 1

据我所见，您可以通过将point.padding的值设置为与geom_point(size)相同的值来避免重叠。您可以通过给nudge_y一个非常小的正值来定义上方位置。

library(dplyr)
 ## an example data (delete duplicated data)
iris2 <- iris %>% distinct(Sepal.Length, Sepal.Width, .keep_all = T)

g <- ggplot(iris2[1:20,], aes(Sepal.Length, Sepal.Width)) + geom_point(pch=1, size=8)
g + geom_text_repel(aes(label=Species), segment.color=NA, 
                    point.padding = unit(8, "points"), nudge_y = 1.0E-6)

我猜 box.padding = unit(-0.5, "lines") 会给标签赋予点的位置（但它可能是基于大写字母）。

iris2$Species <- as.character(iris2$Species)
iris2[7,5] <- "ABCDEFG"

g2 <- ggplot(iris2[1:20,], aes(Sepal.Length, Sepal.Width)) + geom_point(pch = 1, size = 8)
g2 + geom_text_repel(aes(label=Species), segment.color=NA, box.padding = unit(-0.5, "lines"))

- cuttlefish44

---

谢谢。嗯，我想这是向前迈出的一步，尽管标签仍然没有在精确的位置绘制。 - geotheory

不错。所以 nudge_y 把它们全部向上推，而 point.padding 把它们拉回来？ - geotheory

@geotheory；我错过了更聪明的方法，我进行了编辑。我认为nudge_y是这样的，并且解释point.padding是从点位置到标签底部的距离（如果它在上方）。但它们变得不必要了... - cuttlefish44

Answer 2

也许你可以改变nudge_y和nudge_x来调整标签的位置。如果你想改变每个点的位置，也许你可以设置一个新的数据框来存储标签的坐标。

- Vida Wang