R，如何向 ggplot 中的默认中断添加一个中断？

Question

假设我有以下问题:有一组数据，生成一个图表，指示有多少数据点低于任何给定阈值。

这很容易实现

n.data <- 215

set.seed(0)
dt <- rnorm(n.data) ** 2
x <- seq(0, 5, by=.2)
y <- sapply(x, function(i) length(which(dt < i)))

ggplot() +
  geom_point(aes(x=x,y=y)) +
  geom_hline(yintercept = n.data)

问题是，假设我想添加一个标签来指示观察总数是多少 (n.data)。我该怎么做，同时将其他中断保持为默认值？

我想要的结果类似于下图，由代码生成

ggplot() +
  geom_point(aes(x=x,y=y)) +
  geom_hline(yintercept = n.data) +
  scale_y_continuous(breaks = c(seq(0,200,50),n.data))

但是，即使我更改了 n.data 的值，我也希望它能正常工作，只需将它添加到默认中断即可。(如果您还摆脱了最后一个默认中断和 n.data 之间的网格线，则会加分!)

Answer 1

三年后，我对 ggplot 有了更多的了解，这就是我今天的做法。

ggplot() +
  geom_point(aes(x=x,y=y)) +
  geom_hline(yintercept = n.data) +
  scale_y_continuous(breaks = c(pretty(y), n.data))