r - 更改（全部） facet_grid 条形文本

Question

如果 ，我如何将（全部）标签更改facet_grid为条形文本margins = ...？

这是一个例子：

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

我(all)该怎么说FOO

Answer 1

您可以使用 的labeller参数facet_grid()。这是一个接受两个参数的函数，变量和值。您可以定义自己的：

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)