Как переместить метки фасетов в верхнюю часть моего графика?

Я могу создать подобный многогранный график с 3 графиками, сложенными вертикально :

ggplot(iris, aes(Petal.Length)) + stat_bin() + facet_grid(Species ~ .)

Возможно ли это чтобы переместить метки в верхнюю часть каждого графика, как если бы я сделал горизонтальное наложение с помощью facet_grid (. ~ Species) ?

Я хочу этого, потому что мои графики длинные графики временных рядов, поэтому мне нужна полная ширина для каждого, но метки (которые, по сути, работают как заголовки для объяснения аспектов) для каждого графика слишком длинные, чтобы поместиться в небольшой области меток справа от графика.