将 p 值添加到循环中创建的 ggplots

如何解决将 p 值添加到循环中创建的 ggplots

我想将成对 t 检验中的 p 值添加到此循环创建的每个图形中：

Facets <- BlLongerFull %>% 
  group_by(Variable) %>% 
  doo(
    ~ggBoxplot(data = .,x="Grouping",y="Prop"),result = "plots"
  )
Facets
Variable <- Facets$Variable
for(i in 1:length(Variable)){
  graph.i <- Facets$plots[[i]]+
    labs(title = Variable[i])+
    stat_pvalue_manual(pwc[i,],label = "p")
  print(graph.i)
}

我使用 rstatix 进行了成对 t 检验

  pwc <- BlLongerFull %>% 
  group_by(Variable) %>% 
  pairwise_t_test(Prop~Grouping) %>%
  add_xy_position(x="Grouping")

图形最终看起来像这样

如何获取 stat_pvalue 以将所有 p 值添加到循环中的每个图形？