значения корреляции в фасетной сетке из ggplot2

При использовании сетки граней _в ggplot2 я хотел бы иметь значение корреляции для подмножества данных для каждой ячейки сетки в правом верхнем углу конкретного графика.

например. если работает:

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p + facet_grid(vs ~ am, margins=TRUE)

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

Или, возможно, выходная таблица с графиком, которая дает значения корреляции для каждой из ячеек в таблице, совпадающие с сеткой граней _... (это менее желательно, но также вариант ).

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

Это возможно?

Заранее спасибо