在facet_wrap图中添加“浮动”轴标签

Question

我和这个用户有同样的问题-我有一个“锯齿状”的多面图，其中底行的面板比其他行少，并且我希望每列底部的X轴刻度线。

针对该问题的建议解决方案是设置scales="free_x"。（在ggplot 0.9.2.1中；我认为寻找的行为在较早版本中是默认的。）在我的情况下，这是一个较差的解决方案：我的实际轴标签会很长，因此将它们放在每一行下会占用太多空间房间。结果是这样的：

 x <- gl(3, 1, 15, labels=paste("this is a very long axis label ", letters[1:5]))

 y <- rnorm(length(x))

 l <- gl(5, 3, 15)

 d <- data.frame(x=x, y=y, l=l)

 ggplot(d, aes(x=x, y=y)) + geom_point() + facet_wrap(~l, scales="free_x") + 

   theme(axis.text.x=element_text(angle=90, hjust=1))

在此处的评论中，Andrie建议可以手动完成此操作，grid但我不知道如何开始。