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

Я посмотрел здесь, но до сих пор не могу понять. Как изменить метки 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)

ОТВЕТЫ

Ответ 1

Вы можете настроить метки фасетов, указав функцию Labeller:

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)