r：ggplot2和shiny：如何在不使用geom_label的情况下使文本更具可读性？

Question

我使用闪亮来创建一些反应图。当我使用geom_text将geom_vlines的截距放在行的旁边时，由于绘图的颜色，我很难读取文本。我试过各种颜色，没有效果。

当我使用geom_label而不是ggplot2包中的geom_text时，我的绘图需要更长的时间才能加载。时间基本上是三倍。我已经阅读了关于geom_label的文章，它说创建情节需要更长的时间。

所以我的问题是，如何在不使用geom_label的情况下使图表在图表上更具可读性，从而减慢创建图表的时间？有人有什么想法吗？我知道有解决方案，但就创建绘图所需的时间而言，哪一个是理想的解决方案。谢谢！

修改 这是一个例子。我无法改变情节或文字的颜色。我可以改变文本y轴的位置。

set.seed(1)
df <- data.frame(numbers = rnorm(1000, 1000, 500))
p123 <- ggplot(data = df, aes(x = numbers))+
  geom_histogram(bins = 15, fill = "#000D62")+
  geom_vline(xintercept = mean(df$numbers)*2.5)+
  geom_text(label = paste0("value = ", round(mean(df$numbers)*2.5, 0),
      "€"), x = mean(df$numbers)*2.5, y = 4,
       size = 4, colour = "#FFBA18")+
  labs(x = "Numbers", y = "number of observations")
plot(p123)