r - 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 列缺少克拉标签。