ggplot2 で軸名やタイトルに数式を用いる方法

ggplot2の軸名に数式を入れる方法．
labsとexpressionを用いる．

例えば，次のような図がある．

この軸名ラベルやタイトルを数式にする．（数式は適当）

このときのソースは次のようなもの．

# data - normal distribution
x <- seq(-4,4,0.01)
fx <- dnorm(x)
norm <- data.frame(x=x,fx=fx)

# graph using ggplot2
g <- ggplot(norm)
g <- g + geom_line(aes(x,fx))
g <- g + theme_grey(24)
g <- g + labs(x=expression(paste(frac(1, sqrt(2*pi)*sigma), " ", 
                                 plain(e)^{frac(-(x-mu)^2, 2*sigma^2)})),
              y=expression(bar(x)==sum(frac(x[i], n), i==1, n))
              )
g <- g + opts(title=expression(paste(X,"~",N(mu,sigma))))
print(g)

labs()とexpression()で数式を表現している．

expression関数に関しては，「?plotmath」 で表現式の一覧を見ることができる．
グラフィックス参考実例集：数式のプロット -- plotmath 機能で扱える数式の一覧なども参照．