如何使用facet和margin = TRUE更改ggplot中的strip.text标签

Question

我看了here，但仍然无法理解。如何使用分面更改ggplot中的strip.text.x标签？具体来说，我使用带边距的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)