Добавьте аннотацию / описательную метку к каждому подпункту попарно

Question

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

corr1 <- cor(richstruc[,c(4,10,11)])
pairs(richstruc[,c(4,10,11)], main = "comparison 1")

Можно ли как-нибудь добавить аннотации "p = (соответствующее значение из corr1)" к каждому соответствующему участку в паре?

Answer 1

Используя аргумент panel, вы можете управлять тем, что будет отображаться на каждой панели. Вы можете настроить это, чтобы добавить маргинальную метку. Я увеличил размер поля (gap=2) и уменьшил размер шрифта (cex=0.8), чтобы текст соответствовал. Поскольку вы не предоставляете свои данные, я проиллюстрирую их встроенными данными радужной оболочки.

Display = function(x,y) {
    points(x,y, pch=16, col=rainbow(3)[iris$Species])
    CXY = round(cor(x,y), 3)
    mtext(paste("cor =", CXY), 1, cex=0.8)
}
pairs(iris[1:3], panel=Display, gap=2)