Eu estou olhando para virar as etiquetas em um painel facetado de 1 linha e 5 colunas, para que os cabeçalhos faceta aparecem na parte inferior, e o eixo x aparece no topo das facetas.

O motivo é que eu quero reutilizar esses cabeçalhos para uma tabela que ficará diretamente abaixo do gráfico.

Então, neste exemplo ...

library(ggplot2)

my.hist<-ggplot(diamonds, aes(clarity)) + geom_bar()

my.hist + facet_wrap( ~ cut, ncol=5) + coord_flip()

Eu gostaria que os rótulos "cortados" aparecessem abaixo do gráfico. Eu estava pensando que facet_grid pode conter a chave, mas é apenas um palpite.

Alguém sabe como fazer isso?