プロットテキストの式を使用する - 名前ではなく変数の値を印刷する

Question

ラベルに指数を持つようにしようとしています。ここで私は

vall = format(cor(x,y)*cor(x,y),digits=3) 
eq <- expression(paste(R^2," = ",vall,sep="")) 
text(legend.x,legend.y,eq,cex=1,font=2) 

を持っていますが、テキストは単に私が実際バルは（テキスト「バル」と省略）に表示するために取得するにはどうすればよいこの

ようなコードだ

Answer 1

bquote()をお試しください例えば：あなたの例は動作しません

set.seed(1) 
vall <- format(rnorm(1),digits=3) 
eq <- bquote(bold(R^2 == .(vall))) 
sq <- seq(0, 1, by = 0.1) 
plot(sq, sq, type = "n") 
text(0.5, 0.5, eq) 

理由は、Rはvallを評価して終わることがないということです。

> eq2 <- expression(paste(R^2," = ",vall,sep="")) 
> eq2 
expression(paste(R^2, " = ", vall, sep = "")) 

plotmathは、このうち何かを作るしようとしますが、基本的にvallは文字通りに解釈されます。

一般に、プロットマス式ではpaste()は必要ありません。標準演算子とレイアウト演算子を使用して式を作成できます。例えば、製造されたものあなたの例（未評価のvall）と同等の発現のために、あなたが本当に必要なのは次のとおりです。

expression(R^2 == vall) 

bquote()は、式の中でその値に置き換えられたオブジェクトを持っている一つの方法です。置き換えたいオブジェクトをその値で囲んで.()にします。 Rはオブジェクトを探し、その値を取り出して式に挿入します。

また、別のインタフェースを使用したこれに対する別の方法については、substitute()も参照してください。