Общая корреляция в ggpairs с цветовой группировкой?

Этот код создает приятный парный график, который имеет корреляционное считывание в среднем праве:

library(GGally)
ggpairs(esoph[,c(1,4,5)], colour='agegp')

Вы можете получить квадрат корреляции с помощью:

ggally_cor(data=esoph[,c(1,4,5)],
           mapping=aes(x=ncases, y=ncontrols, colour='agegp'))

Квадрат содержит корреляцию на группу. Есть ли способ получить корреляцию для всех наборов данных, чтобы они отображались? Если вы не используете colour=..., вы получите его, но тогда вы не получите корреляции между группами.