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()。これは、変数と値の 2 つの引数を取る関数です。独自に定義できます:

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)