ggplot2修复重叠的y标签

Question

代码示例 让我举一个小例子：

example.data <- data.frame(
  x = seq(1,5),
  y = c(seq(1,3), 4.1, 4.11),
  y.label = letters[1:5]
)


library(ggplot2)
ggplot(example.data, aes(x=x, y = y)) + 
  geom_point() +
  scale_y_continuous(breaks = example.data$y, labels = example.data$y.label)

由于4.1和4.11非常接近，标签将重叠：

信息 我为出版物绘制了一个非常相似的图形，并且不希望增加图形的大小只是为了使标签适合（这将需要绘图非常大）。我对ggrepel很熟悉，但据我所知，这只适用于绘图本身的文本注释，而不适用于轴。

题 如何在不增加整个图的大小的情况下确保标签不重叠？

Answer 1

我宁愿这样做。绘制一个普通图和第二个放大版。然后使用this solution覆盖它们。

p1 <- ggplot(example.data, aes(x=x, y = y)) + 
  geom_point() + 
  scale_y_continuous(breaks = example.data$y[1:4], labels = example.data$y.label[1:4])

p2 <- ggplot(example.data, aes(x=x, y = y)) + 
  geom_point() + 
  xlim(3.9, 5.1) + 
  scale_y_continuous(breaks=seq(4.100, 4.111, .002), labels=c("d", rep("", 4), "e"),
                     limits=c(4.1, 4.111))

vp <- grid::viewport(width=0.4, height=0.15, x=.8, y=.4)

png("plot.png")
print(p1)
print(p2, vp=vp)
dev.off()

结果

阅读器指南变得更加清晰：

library("ggforce")
p1 <- p1 + geom_circle(aes(x0=4.5, y0=4.2, r=.7), 
                       inherit.aes=FALSE, linetype=2) +
  geom_segment(aes(x=4.5, y=2.5, xend=4.5, yend=3.5),
               size=1, arrow=arrow(length=unit(0.5, "cm")))

精致的结果

注意：当然你仍然可以改进它，只是为了得到你的想法。

Answer 2

我会为这个问题建议一个不同的情节：

ggplot(example.data, aes(x=y.label, y = y)) + 
    geom_point() +
    geom_hline(yintercept = 4.1) +
    geom_text(aes(0,4.1,label = 4.1,hjust=-1,  vjust = -0.5))