Wie man strip.text Etiketten in ggplot mit Facette und Rand = TRUE

Question

ändern Ich habe here geschaut, kann es aber immer noch nicht herausfinden. Wie ändere ich die strip.text.x-Labels in einem ggplot mit Facettierung? Speziell verwende ich facet_grid mit Rändern. Das strip.text Label für den Rand ist "(alle)" - aber da ich in einem nicht englischsprachigen Land bin, würde ich eher "Total" oder etwas Ähnliches in meiner Muttersprache schreiben.

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

Irgendwelche Ideen?

Beispiel (nicht wirklich die beste Datensatz für diese - aber ich denke, es wird funktionieren)

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

Answer 1

Sie können die Facette Etiketten gestalten Etikettierer Funktion geben:

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)