r - 軸タイトルにギリシャ語の文字を追加

Question

Rの棒グラフのy軸にギリシャ語の文字を追加したいのですが、
問題は、この文字をタイトルに統合する必要があることです。私が書きたい：

Diameter of aperture ("mu"m)

軸ラベルにあります。

と

ylab=expression()

ギリシャ語の文字を書くことができます

ylab="axis title"

単語の間に適切なスペースを入れてタイトルを書くことができます。

しかし、これらすべてをまとめて、軸ラベルにギリシャ語を含む適切なラベルを書く方法を見つけることができません。私は十分に明確だったと思います。

Answer 1

を使用している場合plotmath{grDevices}、メインヘルプページ（plotmath）には、必要と思われるものの例が含まれています。

xlab = expression(paste("Phase Angle ", phi))

またはあなたの場合、私は推測します：

ylab = expression(paste("Diameter of aperture ( ", mu, " )"))

これはあなたのために働きますか？

Answer 2

私はあなたの質問にきちんと従ったと思います。の~呼び出しで文字間にスペースを強制しexpression()ます。これは、あなたの望むことですか？

plot(1:3, ylab = expression("Diameter of apeture (" * mu ~ "m)"),
  , xlab = expression("Force spaces with ~" ~ mu ~ pi * sigma ~ pi)
  , main = expression("This is another Greek character with space" ~ sigma))

Answer 3

また、テキスト内の変数を置き換える場合は、を使用しますbquote。たとえば、変数がmuあり、それをタイトルに表示したい場合は、次のイディオムを使用します。

mu <- 2.8
plot(1:3, main=bquote(mu == .(mu)))

で囲まれた部分.()が置き換えられるためmu、ギリシャ語の「mu」文字ではなく、の値が出力されます。詳細については、Rヘルプbquoteを参照してください。

Answer 4

これは、次のようにするとはるかに簡単になりますlatex2exp。

require(latex2exp)
plot(1, xlab = TeX('$\\mu$'))

Answer 5

そして、あなたが推定量を扱っていた場合、plotmath{grDevices}あなたのギリシャ文字に帽子を追加する可能性も提供します：

ylab = expression(paste("Diameter of aperture ( ", hat(mu), " )"))

でmu囲まれhat()ているのがトリックです。

Answer 6

R3.62のヘルプパッケージutf8を使用して適切なTrueTypeフォントを使用してWindows10で作業しているときに、上記のChaseのプロット例（2011年から）に更新された回答を提供します。私の答えでは、μに値を割り当てます。16進（??）コードで呼び出すUnicode文字。スペースは、引用符で囲まれた単なる「スペース」です。ここで私の答えを参照してください：

参照： http： //www.unicode.org/Public/10.0.0/ucd/UnicodeData.txt

utf8-パッケージ{utf8}

# pi small case
utf8_print("\u03C0")
"π"
# sigma small case
utf8_print("\u03C3")
"σ"

μ <- abs(digamma(1))
μseq <- seq(μ,3*μ,μ)
dev.new()
plot(μseq, ylab = "Diameter of apeture ( μ m)",
  , xlab = "Force spaces with ~ μ  \u03C0  \u03C3  \u03C0 ",
  , main = "This is another Greek character with space \u03C3")
#