Как добавить общую метку к фасетам в ggplot2?

У меня часто есть числовые значения для огранки. Я хочу предоставить достаточную информацию для интерпретации этих значений огранки в дополнительном заголовке, аналогичном заголовкам осей. Параметры этикетировщика повторяют много ненужного текста и неприменимы для более длинных переменных заголовков.

Какие-либо предложения?

По умолчанию:

test<-data.frame(x=1:20, y=21:40, facet.a=rep(c(1,2),10), facet.b=rep(c(1,2), each=20))
qplot(data=test, x=x, y=y, facets=facet.b~facet.a)

Что бы я хотел:

Лучшее, что я могу сделать в ggplot:

qplot(data=test, x=x, y=y)+facet_grid(facet.b~facet.a, labeller=label_both)

Как указано @Hendy, похоже на: добавить дополнительную ось Y к графикам ggplot2 -сделать его идеальным