ggplot facet_wrap中的x轴标签

Question

如果最后一行中的面板数与上面的行不同，则在使用ggplot2的构面图中缺少x轴标签。我该如何添加这些？

例如：

d <- ggplot(diamonds, aes(carat, price, colour=color))
d + geom_point() + facet_wrap(~ clarity, ncol=5)

给出：

第4列和第5列缺少克拉标签。