Letras gregas no texto da tira ggplot
Estou tentando substituir o texto em algumas tiras do ggplot para incorporar caracteres gregos. Aqui estão alguns dados de amostra e a base para o gráfico.
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()
Minha primeira tentativa de trama não tem grego nos rótulos das tiras.
p + facet_grid(fy ~ fx)
Acho que devo adicionar um argumento rotulador parafacet_grid
para substituir o texto. Eu presumi que isso deveria cuspir uma expressão para manipular os caracteres gregos, mas meu código apenas gera um erro quando o gráfico é impresso.
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'
Como devo criar as etiquetas da tira?