r - ggplot2のfacet_wrapに「(all)」ファセットを簡単に追加できますか?

Question

facet_wrapドキュメントに次の例のようなデータがあります。

_{(出典: ggplot2.org )}

すべてのデータを使用して、最後のファセットを全体ビューで埋めたいと思います。

で「合計」ファセットを追加する簡単な方法はありfacet_wrapますか? に余白を追加するのは簡単facet_gridですが、そのオプションは にはありませんfacet_wrap。

注:facet_grid上記のプロットのように象限が必要な場合、 using はオプションではありません。これにはncolまたはnrowからの引数が必要facet_wrapです。

Answer 1

library(ggplot2)

p <- qplot(displ, hwy, data = transform(mpg, cyl = as.character(cyl)))
cyl6 <- subset(mpg, cyl == 6)
p + geom_point(data = transform(cyl6, cyl = "7"), colour = "red") +
  geom_point(data = transform(mpg, cyl = "all"), colour = "blue") +
  facet_wrap(~ cyl)

Answer 2

次のように、facet_wrap で「margins」オプションを試すことができます。

library(ggplot2)

p <- qplot(displ, hwy, data = transform(mpg, cyl = as.character(cyl)))
cyl6 <- subset(mpg, cyl == 6)
p + geom_point(data = transform(cyl6, cyl = "7"), colour = "red") +
  facet_wrap(~ cyl, margins=TRUE)