これは簡単な質問のように思えるので、簡単な答えであることを願っています。ポイントをプロットして線形モデルをフィッティングしていますが、これで問題ありません。次に、R 二乗値などの要約統計量をプロットにもプロットしたいと思います。コマンドラインでのみ R 二乗値を取得できるようです。何かアドバイス; ggplot などを見る必要がありますか? 前もって感謝します。
#Does the plot
plot(df$VAR1, df$VAR2)
#Adds the line
abline(lm(df$VAR2~df$VAR1), col="red")
#Shows stats on command line
summary(lm(df$VAR2~df$VAR1))
legend()便利な論理配置があるため、悪用できます。
R> DF <- data.frame(VAR1=rnorm(100), VAR2=rnorm(100))
R> with(DF, plot(VAR1, VAR2))
R> abline(fit <- lm(VAR2 ~ VAR1, data=DF), col='red')
R> legend("topright", bty="n", legend=paste("R2 is",
+ format(summary(fit)$adj.r.squared, digits=4)))
ここではボックスを抑制し、表示を短くbty="n"する必要があります。引数やtoと同様に、format()その他も有効です。text()main=sub=plot()
このtext関数はテキストを現在のプロットに配置します。これは、r-2 乗値をプロットに追加するための 1 つのオプションです。テキストを配置する場所を見つける方法については、grconvertXおよび関数も参照してください。grconvertY
パッケージのcorner.labelおよびemptyspace関数plotrixも役立つ場合があります。