将置信区间文本添加到 ggplot 的优雅方式，类似于 ggpubr

如何解决将置信区间文本添加到 ggplot 的优雅方式，类似于 ggpubr

我使用 ggpubr 包和 ggpubr::stat_cor 函数来获取有关添加到图中的相关性的一些信息。下面是一些简单的示例代码：

library(ggpubr)

set.seed(123)
n <- 1000
x_vec <- runif(n)
y_vec <- 3 + 1.3*x_vec + rnorm(n)
df <- data.frame(x = x_vec,y = y_vec)

ggplot(df,aes(x,y)) +
    geom_point() +
    stat_cor(p.accuracy = 0.00001)

结果图在左上角有一个 p 值：

我更喜欢置信区间，所以我向 ggpubr 做了一个小的 PR 来实现这一点，（参见 here）。

我对包进行了更改，因为这是我想出的最快的方式来实现所需的结果。我想知道是否有一种简单优雅的方法可以直接使用 ggplot 或其他一些包来实现相同的结果？

编辑：我知道 geom_text，我想这样做，例如当我facet时，我使用ggplot中的分组定义的数据来实现这一点，例如

df <- data.frame(x = x_vec,y = y_vec,grp = sample(1:4,n,replave=TRUE)

ggplot(df,y,group = grp)) +
    geom_point() +
    facet_wrap(vars(grp)) +
    stat_cor(p.accuracy = 0.00001)

给出以下内容：