"ほぼ等しい"を含むプロットテキストR

Question

expression()とbquote()のテキストベースのグラフィックスで特殊なTexのようなマークアップをプロットするときに慣れていますが、パーサーがエラーをスローすることなく "ほぼ等しい" 。マークアップを決定するときに私は?plotmathを参照しています。

plot(c(1,100), c(1,100), type="n", axes=FALSE, xlab="", ylab="") 

# This works 
text(50, 80, expression(paste("The area is 24 ", km^2))) 

# This doesn't 
text(50, 50, expression(paste("Reginald is ", %~~% , "14 years old"))) 

Answer 1

これはトリックを行う必要があります。

plot(c(1,100), c(1,100), type="n", axes=FALSE, xlab="", ylab="") 
text(50, 50, 
    expression(paste("Reginald is ", phantom() %~~% phantom(), "14 years old"))) 

動作しませんでしたバージョンが%~~%「演算子」の両方の左と何かを表現の一部であることを期待していることである理由は、その右。 phantom()は、（a）目に見えないもの、（b）幅を持たないもの、つまり必要なものを提供します。

編集：

私は毎日何かを学びます。 Brian Diggsは、コメント内で、同じ効果を生成できることを指摘しています。式にコンマを残しておくだけです（この場合、paste()へのネストされた呼び出しは必要ありません）。これは、よりよい解決策である。このため

text(50, 50, expression("Reginald is " %~~% "14 years old"))