Rのggplot2における散布図に回帰式や決定係数、P値などを書き込みたい

前提・実現したいこと

Rのggplot2で作成した散布図に、回帰式や決定係数、P値などを表記したい
対処方法などを、ご教授いただけると幸いです。

発生している問題・エラーメッセージ

ggpmisc　にて表記したところ、数式などの文字が以下のような状態で表記される。
正常に表記するためにはどうすれば良いか？

italic(y)~'='~6+0.8*~italic(x)
※画像が添付できないので状態を書き込みました
などと表記される。
表記したいのは　y= 6+0.8x

該当のソースコード

library(ggplot2)
library(ggpmisc)
library(tidyverse)
windowsFonts(Cen = windowsFont("Century"))

fit <- lm(M ~ F, data = d)
new_mtcars <- cbind(d, predict(fit, interval = "prediction")) 
head(new_mtcars)
g <- ggplot(data = new_mtcars, aes(x = F, y = M))
g + geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.2, fill = 'green') + geom_point() +geom_smooth(method = "lm", formula = y ~ x) + stat_poly_eq(formula = y ~ x,aes(label = paste(..eq.label..,rr.label,p.value.label,"N=", nrow(d))))

試したこと

ggpmiscを読み込んだ時点で、「annotate」がマスクされていると表示されます。
annotate:: で試してみたが、上手くいかなかった。

補足情報（FW/ツールのバージョンなど）

R4.0.3
パッケージのアップデートは最新にしています

行動規範の内容に同意します

回答1件

ベストアンサー

stat_poly_eq()とpaste()を使う場合，区切り文字の指定方法が
ややトリッキーになるようです．

cranによくわかる例があります！
Cranによれば，
空白スペースの場合は，sep="~~"のように~~(チルダ)を指定するようです．

今回のように，sepを使わずに空白や
文字列で"N="等を挿入したい場合は，以下のように実装可能なようです．

R
1d <- cars
2fit <- lm(speed ~ dist, data = d)
3new_mtcars <- cbind(d, predict(fit, interval = "prediction")) 
4g <- ggplot(data = new_mtcars, aes(x = dist, y = speed))
5g<-g + geom_ribbon(aes(ymin = lwr, ymax = upr), alpha = 0.2, fill = 'green') +
6  geom_point() +geom_smooth(method = "lm", formula = y ~ x) +
7  stat_poly_eq(formula = y ~ x,aes(label = 
8                                     paste(stat(..eq.label..),"*\" \"*", 
9                                           stat(rr.label),"*\" \"*",
10                                           stat(p.value.label),"*\" N= \"*",
11                                           nrow(d),"*\"  \"",
12                                           sep="")),parse=T)
13print(g)