如何在ggplot轴文本下添加线

Question

我想在ggplot的底部添加一对水平线，以说明x轴元素的分组。 Try(Await.result(future, 1.second)) match { case Success(res) => // we can deal with the result directly case Failure(e) => // but we might have to figure out if a timeout happened } 和geom_abline都将在图形内添加线。知道如何在其下添加行吗？

geom_segment

这将在图中绘制线段，而不是在轴标题下。

Answer 1

您可以通过使用coord_cartesian(xlim, ylim, clip="off")然后在适当的几何图形上使用annotate()在绘图区域之外进行注释。根据分组的美观程度，您可以在绘图区域的底部或轴标签下方放置线条。

library(ggplot2)

df <- data.frame(x=seq(1,10), y=seq(1,10))

ggplot(df, aes(x,y)) +
  geom_point() +
  coord_cartesian(xlim=c(0,10), ylim=c(0,10), clip="off") +
  annotate("segment", x = 2, xend = 4, y = -1, yend = -1) +
  annotate("segment", x = 5, xend = 7, y = -0.5, yend = -0.5)