在geom_histogram标签中添加geom_vline标签

Question

我想在不重新生成现有标签的情况下，为来自geom_vline层的数据添加x轴标签：

library(dplyr)
library(ggplot2)

data_frame(x = rnorm(10000)) %>% 
  ggplot(aes(x = x)) + 
  geom_histogram(bins = 100) + 
  geom_vline(aes(xintercept = mean(x) + 2.6)) + 
  theme_bw() 

- tchakravarty

---

@Hack-R，我的x轴截距没有标签。我已经添加了代码输出，并对代码进行了小改动以使其更加明显。 - tchakravarty

Answer 1

你可以这样做：

library(dplyr)
library(ggplot2)

data_frame(x = rnorm(10000)) %>% 
  ggplot(aes(x = x)) + 
  geom_histogram(bins = 100) + 
  geom_vline(aes(xintercept = mean(x) + 2.6)) + 
  theme_bw() +
  geom_text(aes(x=mean(x) + 2.6, label="My label text", y=0), colour="blue", angle=90)

- Hack-R

---

太繁琐了，我有一个大量的摘要函数列表，我想添加到我的直方图中。 - tchakravarty

@tchakravarty 你可以将其参数化。如果你给我一个例子，我可以向你展示。 - Hack-R

谢谢，但我宁愿黑掉轴标签装置，也不想尝试让geom_text与现有标签对齐以达到外观效果。 - tchakravarty