cómo cambiar las etiquetas strip.text en ggplot con faceta y margen = VERDADERO

Question

He buscado here pero todavía no puedo entenderlo. ¿Cómo cambio las etiquetas strip.text.x en un ggplot con faceting? Específicamente, estoy usando facet_grid con márgenes. La etiqueta strip.text para el margen es "(todo)", pero como estoy en un país que no habla inglés, prefiero escribir "Total" o algo similar en mi lengua materna.

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

¿Alguna idea?

Ejemplo (no es realmente el mejor conjunto de datos para esto - pero supongo que va a funcionar)

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

Answer 1

Puede personalizar las etiquetas faceta dando función etiquetadora:

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)