метки оси x в ggplot facet_wrap

Если количество панелей в последней строке отличается от количества строк выше, метки оси x отсутствуют на фасетном графике с ggplot2. Как я могу добавить их?

Например:

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

дает:

где метки в каратах отсутствуют для столбцов 4 и 5.