Ich versuche, den Text in einigen ggplot-Streifen zu überschreiben, um griechische Zeichen aufzunehmen. Hier sind einige Beispieldaten und die Basis für den Plot.

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()

Mein erster Versuch einer Handlung hat kein Griechisch in den Streifenetiketten.

 p + facet_grid(fy ~ fx)

Ich habe festgestellt, dass ich ein Etikettierer-Argument hinzufügen sollfacet_grid um den Text zu überschreiben. Ich nahm an, dass dies einen Ausdruck ausspucken sollte, der die griechischen Zeichen handhabt, aber mein Code gibt nur einen Fehler aus, wenn die Grafik gedruckt wird.

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'

Wie soll ich die Streifenetiketten erstellen?