3

paste()、bquote()、as.expression()、c()、...のほぼすべての組み合わせを試しました...

plot(d[,"y"], type="l",xlim=c(1,n), ylim=c(min(d[,"y"]),max(d[,"y"])), 
  ylab="Y", xlab="T", main="ARMA(1,1)",
   sub=c(as.expression(bquote(phi == .(coef_ar)), 
         as.expression(bquote(theta == .(coef_ma))))))

これは "phi = 0.5" (この場合はギリシャ記号) をプロットするだけで、2 番目の部分 (シータ) はプロットしません。誰でも私を助けてください！

ありがとう！

4

1 に答える 1

7

使用できますsubstitute。~式をスペースで連結します

plot(1, main = substitute(phi == Phi ~ theta == Theta, list(Phi = 1, Theta = 1)))

ここに画像の説明を入力

bquoteまたは、同様の方法で使用できます

plot(1, main = bquote(phi == .(coef_ar)  ~ theta == .(coef_ma)))

最初のアプローチが機能しなかった理由は、式のベクトルを作成し、サブタイトルの最初の要素のみを使用したためです。

comma区切られた値が必要な場合は、を使用しますlist()。

例えば

 plot(1, main = bquote(list(phi == .(coef_ar), theta == .(coef_ma))))
于 2012-11-27T23:53:49.110 に答える