text,expressionで書いた数式の位置指定

Question

text(1.4, 3.5, expression(P(k) == frac("n!","k!(n-k)!")* (frac(λ,n))^k * (1-frac(λ,n))^(-k)* (1-frac(λ,n))^(n)), cex = 2)

このように書くとどうやら、1.4,3.5の地点に数式の中心がくるようになるようです
自分としては全列の数式を左詰めで揃えたいのですが
そういうことはできないのでしょうか。

もっと具体的にいうと

text(1, 5, expression(lim(P(k), x %->% 0) == nCk * (frac(λ,n))^k * (1-frac(λ,n))^(n-k)), cex = 2)
text(1.46, 3.5, expression(paste(" = ",frac("n!","k!(n-k)!")* (frac(λ,n))^k * (1-frac(λ,n))^(-k)* (1-frac(λ,n))^(n))), cex = 2)

こうすると、ほぼ１行目と２行目は左端の＝がそろうんですが、
数式の長さによって1.46の数字を調整する必要があり、それが面倒なんですが・・・。

Answer 1

一応、adj = 0 を指定する事で x = 0 地点から数式が描かれます。ただ、プロットの左マージンがありますので、その分だけ右へずれることになります。

text(0, 3.5, expression(P(k) == frac("n!","k!(n-k)!")* (frac(λ,n))^k * (1-frac(λ,n))^(-k)* (1-frac(λ,n))^(n)), cex = 2, adj = 0)

Comments

[amunagan]

これは良い！
text(1, 5, expression(P(k) == nCk * (frac(λ,n))^k * (1-frac(λ,n))^(n-k)), cex = 2, adj = 0)
text(1.24, 3.5, expression(paste("=",frac("n!","k!(n-k)!")* (frac(λ,n))^k * (1-frac(λ,n))^(-k)* (1-frac(λ,n))^(n))), cex = 2, adj = 0)
とかで、できました。