Я пытаюсь переопределить текст в некоторых полосах 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)

Я понял, что должен добавить аргумент labeller к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'

Как я должен создавать этикетки полосы?