Comment ajouter des symboles mathématiques dans le texte ggplot facet_wrap?

Question

This question explique comment ajouter des symboles mathématiques à l'intérieur d'un tracé. Mais cela ne fonctionne pas lorsque le texte est censé être stocké dans le cadre de données lui-même. C'est le cas du texte qui apparaît dans les petites cases des sous-tracés facet_wrap.

Voici un exemple reproductible. Disons par exemple que j'ai ces données en T et en m³ et que je voudrais faire un tracé comme celui-ci.

library(ggplot2) 
dtf <- data.frame(year = rep(1961:2010,2), 
        consumption = cumsum(rnorm(100)), 
        item = rep(c("Tea bags","Coffee beans"),each=50), 
        unit = rep(c("T","m^3"),each=50)) 
ggplot(data=dtf)+ 
    geom_line(aes(x=year, y=consumption),size=1) + 
    ylab(expression(paste("Consumption in T or ",m^3))) + 
    scale_x_continuous(breaks = seq(1960,2010,10)) + 
    theme_bw() + facet_wrap(item~unit, scales = "free_y") 

ylab(expression(m^3)) affiche l'unité correctement. Comment pourrais-je afficher un m³ similaire dans la facette?

Answer 1

ajouter labeller = label_parsed à votre fonction facet_wrap, formatez votre appareil comme m^3, et remplacer les espaces dans vos étiquettes avec ~

library(ggplot2) 
dtf <- data.frame(year = rep(1961:2010,2), 
        consumption = cumsum(rnorm(100)), 
        item = rep(c("Tea~bags","Coffee~beans"),each=50), 
        unit = rep(c("T","m^3"),each=50)) 
ggplot(data=dtf)+ 
    geom_line(aes(x=year, y=consumption),size=1) + 
    ylab(expression(paste("Consumption in T or ",m^3))) + 
    scale_x_continuous(breaks = seq(1960,2010,10)) + 
    theme_bw() + facet_wrap(item~unit, scales = "free_y",labeller = label_parsed)