come cambiare le etichette strip.text in ggplot con facet e margin = TRUE

Question

Ho cercato here ma non riesco ancora a capirlo. Come posso cambiare le etichette strip.text.x in un ggplot con la sfaccettatura? Nello specifico sto usando facet_grid con i margini. L'etichetta strip.text per il margine è "(all)" - ma dal momento che sono in un paese di lingua inglese preferisco scrivere "Total" o qualcosa di simile nella mia lingua madre.

opts(stip.text.x=c(levels(facetvariabel,"Total")) does not work. 

Qualche idea?

Esempio (non proprio il migliore set di dati per questo - ma credo che funzionerà)

ggplot(cars, aes(x=dist))+geom_bar()+facet_grid(.~speed, margin=T) 

Answer 1

È possibile personalizzare le etichette sfaccettatura dando funzione etichettatrice:

f <- function(x, y) { 
    if (x == "speed") 
    c(y[-length(y)], "Total") 
    else 
    y 
} 

ggplot(cars, aes(x = dist)) + 
    geom_bar() + 
    facet_grid(. ~ speed, margin = TRUE, labeller = f)