R ggplot2 facet_grid具有3个或更多变量的"分层"格式

Question

当我在我的一个维度上有多个变量时,我试图获得一个很好的显示,这样我facet_grid就不会重复每个列(或行)的所有变量的名称,而是在子框上有一个合并的框.使用R中的默认数据集(基于R Cookbook)的具体示例:

library(reshape2)
sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) +
      geom_point(shape=1) +
      facet_grid(smoker ~ sex+day)
sp

这将返回类似于此图的顶部部分,其中Female/Male在每列的顶部重复.是否有一种方法(在R中)合并所有性别块以获得类似我上传的图的底部部分？(我和Gimp做了这个,不用说它不是一个理想的选择)

我查阅了文档,facet_grid感觉解决方案就是创建一个新的贴标机功能,但我对R来说太新了,无法继续使用它.我已经搜索了一下,看看是否有人已经解决了这个问题,但似乎没有找到任何答案.

有没有人知道已经为此目的创建的自定义贴标机功能,或者是否有人知道如何创建这样的自定义贴标机功能？那真是太神奇了.