r - ggpubr: ラベルの p 値の代わりに有意水準 (*** または ns) を表示する

Question

R で使用する線形回帰で有意水準 (***または) をラベルとして表示したいと思います。 and-significance-levels-to-ggplots/n.s.ggpubraes(label = ..p.signif..)

ただし、単に、つまり..p.label..を by..p.signif..に置き換えると、 . stat_cor(aes(label = paste(..rr.label.., ..p.signif.., sep = "~ ~"))` プロットの変更は何もありません。エラーが発生するだけです:stat_cor(aes(label = paste(..rr.label.., ..p.label.., sep = "~~")),

Error in paste(rr.label, p.signif, sep = "~`,`~") : 
  object 'p.signif' not found 

プロットに正確な p 値の代わりに、星 (*、* 、* ) または ns 値をプロットするにはどうすればよいですか? どうもありがとうございます。

私のダミーデータ: ( http://www.sthda.com/english/articles/24-ggpubr-publication-ready-plots/78-perfect-scatter-plots-with-correlation-and-marginal-histograms/から借用)

---

library(ggpubr)
data("mtcars")
df <- mtcars
df$cyl <- as.factor(df$cyl)

ggscatter(df, x = "wt", y = "mpg",
          add = "reg.line",                         # Add regression line
          conf.int = TRUE,                          # Add confidence interval
          color = "cyl", palette = "jco",           # Color by groups "cyl"
          shape = "cyl"                             # Change point shape by groups "cyl"
)+
  stat_cor(aes(color = cyl,
               label =paste(..rr.label.., ..p.label.., sep = "~`,`~")), # HOW TO CHANGE p.label to show stars???
           label.x = 3)           # Add correlation coefficient