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

Question

我看过这里，但仍然无法弄清楚。如何更改带有刻面的 ggplot 中的 strip.text.x 标签？具体来说，我正在使用带有边距的 facet_grid。边距的 strip.text 标签是“(all)”——但由于我在一个非英语国家，我宁愿用我的母语写“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)