Eu gostaria de usar caracteres gregos, caracteres latinos e o sinal de porcentagem nos rótulos facetados de um gráfico de barras ggplot2. Caracteres gregos podem ser feitos com 'facet_grid (. ~ Variable, labeller = label_parsed)':

    a<-c("Delta~V","VarcoV","Delta~V","VarcoV")
    b<-c(1,2,3,4)
    d<-c("one","one","two","two")
    mydata<-data.frame(cbind(b,a,d))
    ggplot(mydata,aes(x=d,y=b))+facet_grid(.~a, labeller=label_parsed)+geom_bar(stat="identity")

Agora também quero adicionar um rótulo de faceta que inclua% e um caractere latino:

    a<-c("Delta~V","VarcoV","%V","Delta~V","VarcoV","%V")
    b<-c(1,2,3,4,5,6)
    d<-c("one","one","one","two","two","two")
    mydata<-data.frame(cbind(b,a,d))
    ggplot(mydata,aes(x=d,y=b))+facet_grid(.~a, labeller= label_parsed)+geom_bar(stat="identity")

Isso produz o seguinte erro:

    Error in parse(text = x) : <text>:1:1: unexpected input
    1: %V
       ^

Alguma idéia de como incluir o sinal de porcentagem?