为facet_grid绘图的所有刻面强制X轴文本

Question

我有和this user相同的问题：我想绘制一个具有离散x轴的facet_grid绘图，并且我想让x轴标签应写在每个面的下面，而不是只写在底面的一行面之下。例如：

# Drop some factor levels to make the plot smaller 
diamondSub <- subset(diamonds, (cut=="Ideal" | cut=="Premium") & 
        (color=="E" | color=="I")) 

# Note that scales="free_x" has no practical effect here 
ggplot(diamondSub, aes(x=clarity, y=price)) + 
    geom_blank()+ 
    geom_boxplot() + 
    facet_grid(cut~color, scales="free_x") 

不过，我宁愿不使用来自该职位，这是该解决方案只使用facet_wrap代替facet_grid，因为我喜欢的方式facet_grid标签条的文本在列的顶部有一个变量，而在行的两侧有另一个变量。

有没有办法让每个面在x轴标签，当所有的X轴实际上是相同的，使用facet_grid？

Answer 1

您可以将gtable内轴的副本，

library(gtable) 
g <- ggplotGrob(p) 
# locate the panels 
panels <- grep("panel", g$layout$name) 
top <- unique(g$layout$t[panels]) 
# intersperse a copy of the bottom axes 
all <- gtable:::rbind_gtable(gtable:::rbind_gtable(g[seq.int(min(top)), ], 
                g[max(top)+1,], "first"), 
          g[seq(min(top)+1, nrow(g)),], "first") 
grid.newpage() 
grid.draw(all)