Как изменить метки strip.text в ggplot с помощью facet и margin=TRUE

Question

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

Вы можете настроить метки фасетов, предоставив функцию 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)