R 更改（全部）镶嵌面网格条文本

如果

margins=…

，如何将

facet\u grid

给出的（全部）标签更改为条形文本

以下是一个例子：

ggplot(mtcars, aes(mpg, wt)) + geom_point() +
    facet_grid(am ~ cyl, margins = "cyl")

---

如何使

（全部）

说

FOO

您可以使用

facet\u grid（）的
labeller
参数。这是一个接受两个参数的函数，变量和值。您可以定义自己的：

facet_labels <- function(variable, value) {
  labels <- as.character(value)
  labels[labels == '(all)'] <- 'FOO'
  return (labels)
}

ggplot(mtcars, aes(mpg, wt)) + geom_point() +
  facet_grid(am ~ cyl, margins = "cyl", labeller = facet_labels)

facet\u标签您可以使用
facet\u grid（）
的
labeller
参数。这是一个接受两个参数的函数，变量和值。您可以定义自己的：

facet_labels <- function(variable, value) {
  labels <- as.character(value)
  labels[labels == '(all)'] <- 'FOO'
  return (labels)
}

ggplot(mtcars, aes(mpg, wt)) + geom_point() +
  facet_grid(am ~ cyl, margins = "cyl", labeller = facet_labels)

facet\u标签和解决方案可能会有所帮助。这个“（all）”标签似乎是硬编码的，甚至不是在ggplot2中，而是在
restrape2:：add\u margins
中。在github上发行一期可能是值得的，如果它还没有完成的话。我投票决定结束，因为这是一个复制品，但我相信这个标题太糟糕了，对我来说没有什么影响。这些“（所有）”标签似乎都是硬编码的，甚至在ggplot2中也不是，而是在
reformae2:：add_margins
中。如果还没有完成的话，在github上发行一期可能是值得的。我投票决定结束，因为这是一个复制品，但我相信这个标题太糟糕了，对我来说没有任何影响。太好了。我甚至已经在用它来改变标签，但没有想到把它应用到所有的东西上。我甚至已经在用它来改变标签，但没有想到要把它应用到所有人身上。