等高線ラベルに数学記号を追加するには

Question

数学記号を等高線ラベルに渡すことができません。これは可能ですか？

例：ここでは

image(volcano) 
contour(volcano, level=150, add=TRUE, label = "150") # works 
contour(volcano, level=120, add=TRUE, label = expression(alpha)) # doesn't work 
contour(volcano, level=110, add=TRUE, label = bquote(alpha)) # doesn't work 
text(0.5,0.5, labels = bquote(alpha == .(120))) # works 
text(0.2,0.5, labels = expression(paste(alpha, "= 150"))) # works 

Answer 1

は、ソリューションです：

image(volcano); 
levels <- c(150, 120, 110); 
for (i in 1:length(levels)) { 
    contour(
     volcano, add = TRUE, 
     level = levels[i], 
     label = sprintf("a = %i", levels[i]), 
     vfont = c("sans serif symbol", "plain"), labcex = 1); 
} 

ここでキーの代わりにHersheyベクトルフォントを強制的にvfontを使用することです現在のフォントファミリー。次に、 "HersheySansSymbol"フォントファミリを使用して、関数引数vfont = c("sans serif symbol", "plain")を使用して、 "a"を "α"とタイプセットします。これは少し隠されていますが、Hersheyフォントの詳細は?Hersheyにあります。

PS。 vfont = c("serif symbol", "bold")で太字のseriffedフォントを使用することもできます。