ggplot2で回帰直線の式の位置を変えたい

Question

R studioでstat_poly_eq()関数を用いて回帰直線の式を表示しております。
その回帰直線の式の位置がグラフの枠内部にあるため、グラフの枠外上部（余白）に配置したいです。

式の色と大きさを指定できましたが、位置も配置したい場所に置くことはできないでしょうか。
theme()の中で指定する関数が存在するのでしょうか。

aes(...,size = 3)の後にhjustを置きましたが表示されるのは枠内部までのようでした。凡例を置くような位置なのでtheme()の中でlegend.position()を試してみましたがうまく行きませんでした。

また、相関係数Rの表示をしたいと考えており、下記paste("R=",cor(x=...としていますが、出力すると=の位置がyの前に来てしまい、R=と表示されません。cor()関数をこの位置に挿入するのは間違っているのでしょうか。（データはNAを含んでいます。）

g <- ggplot(data1, aes(x=data1[,1], y=data1[,2]))+
  
  #散布図
  geom_point(stat = "identity")+


#回帰直線
  geom_smooth(method = "lm",formula = y ~ x, se = FALSE,color="red",size = 0.5)+

#回帰直線の式表示
  stat_poly_eq(formula = y ~ x, 
               aes(label = paste(stat(eq.label),
                                 paste("R=", cor(x=data1[,1], y=data1[,2],use = "complete.obs"),sep=""),
                                 sep = "~~~")),
                                 color ="Red", size = 4,
                                 parse = TRUE) +
  theme_bw()+
  theme(plot.margin = unit(c(2,2,2,2),"cm"))
    
plot(g)

Answer 1

stat_poly_eq()の中でlabel.x, label.yなどのオプションを使えばどうにかなりそうな気がします。

参照:
R Graphical Manual

Comments

[pomme_gramimg]

ご提案ありがとうございます。
stat_poly_eqの中にlabel.x、label.yで場所を指定してみましたが、
stat_poly_eq(formula = y ~ x,
aes(paste(stat(eq.label),
paste("R="),
paste(cor(x=data1[,1], y=data1[,2],use = "complete.obs"),sep=""),
sep = "~~~")),
color ="Red", size = 3,label.x= 30,label.y=300,
parse = TRUE)
と入力しましたが、
（label.xとlabel.yがわかっていなかったので修正させて頂きました。）
エラー: stat_poly_eq requires the following missing aesthetics: x
というエラーが出ましたが、xの値はデータにあるのでどういう理由でこのようなエラーが出ているのかわかりません。

[pomme_gramimg]

さらに追記失礼します。
ggscatterを使ってlabel.x、label.yを指定してみたところ、余白部分に到達すると文字が消えてしまいました。

[KojiDoi]

当方に直接試せる環境がないので想像ですが、

aes(label = paste(stat(eq.label),

じゃないかなという気がします。

[pomme_gramimg]

ありがとうございます。
上記（2つ目）で書いた方はpasteの部分がおかしいですね。申し訳ありません。はじめの質問時はaes(label = paste(stat(eq.label)と書かせて頂きましたが、うまく行きませんでした。label.x,label.yは枠線外で適用できないようですし、タイトル部分に置くという関数と回帰直線の式を書くという関数は同時に使うことは仕様的に難しいのかなと感じてきました。