r - 每当将垂直/水平线添加到ggplot时，如何在x/y轴上添加标签？

Question

x 和 y 轴根据 ggplot 设置的特定间隔进行标记。

如果将水平或垂直线添加到绘图中，则目标是在该线的确切值处标记 x 或 y 轴。

如何才能做到这一点？

Answer 1

这并不完全简单，但它是可能的。我可能会使用这两个小功能来自动化棘手的部分：

add_x_break <- function(plot, xval) {
  
  p2 <- ggplot_build(plot)
  breaks <- p2$layout$panel_params[[1]]$x$breaks
  breaks <- breaks[!is.na(breaks)]
  
  plot +
    geom_vline(xintercept = xval) +
    scale_x_continuous(breaks = sort(c(xval, breaks)))
}

add_y_break <- function(plot, yval) {
  
  p2 <- ggplot_build(plot)
  breaks <- p2$layout$panel_params[[1]]$y$breaks
  breaks <- breaks[!is.na(breaks)]
  
  plot +
    geom_hline(yintercept = yval) +
    scale_y_continuous(breaks = sort(c(yval, breaks)))
}

这些将像这样工作。从一个基本情节开始：

library(ggplot2)

set.seed(1)

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

p <- ggplot(df, aes(x, y)) + 
  geom_point() +
  ylim(0, 1)

p

添加一条垂直线add_x_break

p <- add_x_break(p, 6.34)

p

添加一条水平线add_y_break：

p <- add_y_break(p, 0.333)
#> Scale for 'y' is already present. Adding another scale for 'y', which will
#> replace the existing scale.

p

---

附录

如果由于某种原因您没有生成绘图的代码，或者 vline 已经存在，您可以使用以下函数提取 xintercept 并将其添加到轴中断：

add_x_intercepts <- function(p) {
  
  p2 <- ggplot_build(p)
  breaks <- p2$layout$panel_params[[1]]$x$breaks
  breaks <- breaks[!is.na(breaks)]
  
  vals <- unlist(lapply(seq_along(p$layers), function(x) {
    d <- layer_data(p, x)
    if('xintercept' %in% names(d)) d$xintercept else numeric()
  }))
  
  p + scale_x_continuous(breaks = sort(c(vals, breaks)))
}

因此，例如：

set.seed(1)

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

p <- ggplot(df, aes(x, y)) + 
  geom_point() +
  geom_vline(xintercept = 6.34) +
  ylim(0, 1)

p

然后我们可以这样做：

add_x_intercepts(p)

的 y 截距geom_hline可以以类似的方式获得，希望从代码中可以明显看出add_x_intercepts