3

私はRに少し慣れていません。次の2つのスレッドで結果を追跡して実装しました。

http://tolstoy.newcastle.edu.au/R/e17/help/12/03/7984.html

http://lukemiller.org/index.php/2012/10/adding-p-values-and-r-squared-values-to-a-plot-using-expression/

2番目のリンクは、より詳細な方法ではありますが、1番目のソリューションを認めています。

これが私がすでに持っているものです：

シグマ <- c(1,2,3)

rp <- vector('式',3)

rp[1] <- 置換(式(貼り付け(シグマ == 値1,"%")), リスト(値1 = シグマ[1]))[2]

rp[2] <- 置換(式(貼り付け(シグマ == 値1,"%")), リスト(値1 = シグマ[2]))[2]

rp[3] <- 置換(式(貼り付け(シグマ == 値1,"%")), リスト(値1 = シグマ[3]))[2]

plot(0);legend(x="topright",legend=rp)

さて、私は式（貼り付け（））に精通していません。別の変数を含めることができるように、各エントリを追加情報で拡張したいと思います。たとえば、

ムー <- c(4,5,6)

次のように、最初の凡例エントリに mu を追加したいと思います

(ギリシャ語) sigma=1%、(ギリシャ語) mu=4%

これを実現するには、上記の式 (貼り付け ()) コンボをどのように変更すればよいですか?

また、凡例をプロットすると、テキストは非常に「右揃え」になります。境界ボックスの中央に配置するにはどうすればよいですか?

ご協力いただきありがとうございます。

マジアー

4

1 に答える 1

2

これはそれほどエレガントではない解決策です：

sigma <- c(1,2,3)
mu <- c(4,5,6)
rp <- vector('expression',3)
i=1
for (i in 1:length(sigma)){
  jnk=paste("paste(sigma == ", sigma[i],",', ',", "mu == ", mu[i],")")
  rp[i]=parse(text=jnk)  
}
plot(0);legend(x="bottomleft",legend=rp)

テキストの配置の問題は別の非常に基本的な問題であり、その解決策は他の場所で見つけることができます。

于 2013-08-09T20:11:08.723 に答える