Thank Sfer for your feedback!

Please try the following R code:

library("ggpubr")
ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  geom_smooth(method = lm) +
  stat_cor(
    aes(label = paste(..r.label.., ..rr.label.., ..p.label.., sep = "~`,`~")),
    method = "pearson", label.x = 20
    )

The output should look like this:

Q:
In the 1st example,
what would the code be
to print (as top legend):
R and R2 and P ?
(right now, the ex. only shows: R and P…).

Thanks,
SFer
San Francisco
—

Q:
In the 1st example,
what would the code be
to print (as top legend):
R and R2 and p ?
(right now, the ex. only shows R and P…).

Thanks,
SFer