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

Question

我正在使用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值：

我喜欢有置信区间，所以我做了一个小的 PRggpubr来实现这一点，（见这里）。

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

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

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

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

这给出了以下内容：

标签： rggplot2ggpubr