我的第一个想法是使用after_stat来设置基于面板的标签位置。然而，结果是label.x，...不美观。第二个想法是传递向量，但也不起作用。
因此，我能想到的唯一一个为每个facet单独放置文本标签的选项是使用多个stat_regline_equation和stat_cor层。为此，我使用一个 Dataframe 来指定标签位置。然后，通过faceting变量分割数据和标签 Dataframe ，并使用purrr::map2添加标签：

library(ggpubr)
#> Loading required package: ggplot2
library(ggplot2)

df <- iris

df_split <- split(df, df$Species)

df_label <- data.frame(
  Species = c("setosa", "versicolor", "virginica"),
  x = c(1, 0, 0),
  reg.y = c(.05, 1, 1),
  hjust = c(1, 0, 0),
  cor.y = c(0, .95, .95)
)
df_label_split <- split(df_label, df_label$Species)

ggscatter(df, x = "Sepal.Length", y = "Sepal.Width", facet.by = "Species", add = "reg.line") +
  purrr::map2(
    df_split, df_label_split,
    function(x, y) {
      list(
        stat_regline_equation(
          data = x, 
          label.x.npc = y$x, label.y.npc = y$reg.y, hjust = y$hjust),
        stat_cor(
          data = x, aes(label = paste(..rr.label.., ..p.label.., sep = "~`,`~")),
          label.y.npc = y$cor.y, hjust = y$hjust, label.x.npc = y$x
        )
      )
    }
  )