6

ggplot2 で facet_wrap() を使用してギリシャ文字をファセット ラベルに入れる必要があります。facet_grid() についても同じことを説明しているリンクを見つけました。次のコードを使用して、これをデータに適用しました。

levels(parameters) <- c(expression(alpha), expression(beta))  
p + facet_grid(.~parameters, labeller = label_parsed)

これはうまく機能し、まさに私が望むことを行います。ただし、代わりに facet_wrap() を使用する必要があります (両方のパラメーターの個別の y 軸を取得し、さらに多くのパラメーターを異なる列と行にプロットするため)。私は次のことを試しました：

p + facet_wrap(.~parameters, labeller = label_parsed)  ,  or  
p + facet_wrap(.~parameters)

しかし、facet_wrap に「ラベラー」関数がないため、これは機能しませんでした。グリッドを使用してこれをどのように行うことができますか?

4

1 に答える 1

9

この例はあなたを始めるはずです:

library("ggplot2")
library("grid")

d <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
            geom_point() +
            facet_wrap(~Species)
grob <- ggplotGrob(d)
strip_elem <- grid.ls(getGrob(grob, "strip.text.x", grep=TRUE, global=TRUE))$name

grob <- grid::editGrob(grob, strip_elem[1], label=expression(alpha[1]))
grob <- grid::editGrob(grob, strip_elem[2], label=expression(beta^2))
grob <- grid::editGrob(grob, strip_elem[3], label=expression(hat(gamma)))

grid.draw(grob)

修正グロブ

更新:これはggplot2バージョン 0.9.3 で動作します (ただし、グラフィックgridを変更するには脆弱な方法です)。ggplot2

grob[["grobs"]][["strip_t.1"]][["children"]][[2]][["label"]] <- expression(alpha[1])
grob[["grobs"]][["strip_t.2"]][["children"]][[2]][["label"]] <- expression(beta^2)
grob[["grobs"]][["strip_t.3"]][["children"]][[2]][["label"]] <- expression(hat(gamma))
grid.draw(grob)
于 2011-06-30T19:18:31.620 に答える