как изменить метки strip.text в ggplot с грани и margin = TRUE

Question

Я посмотрел here, но все еще не могу понять это. Как изменить метки strip.text.x в ggplot с огранкой? В частности, я использую facet_grid с полями. Метка strip.text для поля - «(все)» - но поскольку я нахожусь в стране, не говорящей по-английски, я бы предпочел написать «Total» или что-то подобное на моем родном языке.

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

Любые идеи?

Пример (на самом деле не лучший набор данных для этого - но я предполагаю, что это будет работать)

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

Answer 1

Вы можете настроить фасетов этикетки, давая функцию этикетировочные:

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)