10

ギリシャ文字を組み込むために、いくつかのggplotストリップのテキストをオーバーライドしようとしています。ここにいくつかのサンプルデータとプロットのベースがあります。

dfr <- data.frame(
   x = rep(1:10, times = 6),
   y = runif(60),
   fx = rep(c("foo", "bar"), each = 30),
   fy = rep(c("alpha", "beta", "gamma"), each = 10, times = 2)
)

p <- ggplot(dfr, aes(x, y)) + geom_point()

プロットでの私の最初の試みでは、ストリップラベルにギリシャ語が含まれていません。

 p + facet_grid(fy ~ fx)

facet_grid私は、テキストをオーバーライドするためにラベラー引数を追加することになっていることを収集します。これはギリシャ文字を処理するための式を吐き出すはずだと思いましたが、グラフィックが印刷されるときに私のコードはエラーをスローします。

lbl <- function(variable, value)
{
   if(variable == "fy") parse(text=as.character(value)) else value
}
p + facet_grid(fy ~ fx, labeller = lbl)


Error in aperm(X, c(s.call, s.ans)) : 
  unimplemented type 'expression' in 'aperm'

ストリップラベルはどのように作成すればよいですか？

4

2 に答える 2

10

これを試して：

p + facet_grid(fy ~ fx, labeller = label_parsed)
于 2010-03-08T18:24:32.013 に答える
3

関連しているので、ここに投稿してください：

変数自体の名前と変数のレベル/値を式として評価する（つまり、ラテックスであるかのようにレンダリングする）場合は、次のことを試してください。

label_parseall <- function(variable, value) {
    plyr::llply(value, function(x) parse(text = paste(variable, 
        x, sep = "==")))
}

例：

data <- data.frame(x = runif(10), y = runif(10), 
    gamma = sample(c("gamma[0]", "gamma[1]"), 10, rep = T))
ggplot(data, aes(x, y)) + geom_point() + facet_grid(~gamma, 
    labeller = label_parselabel)

ここに画像の説明を入力してください

http://img709.imageshack.us/img709/1168/parseall.pngの画像

于 2010-03-16T18:05:41.687 に答える