成对smoothScatter与R中的上对角线相关

Question

有人可以向我解释如何正确编写panel.cor函数来获取提供给pairs函数的矩阵（my_matrix）列的成对关联的标签吗？

par(mfrow=c(1,1))
pairs(my_matrix,
      upper.panel = panel.cor, 
      panel = function(...) smoothScatter(..., nbin=64,
                                            nrpoints = 0,  
                                            add = TRUE), gap = 0.2, ylim = c(-5,5), xlim=c(-5,5)
      )   

panel.cor <- function(x, y, digits=3, prefix="",  ...) {
  r <- cor(x,y)
}

提供给panel参数的函数来自smoothScatter帮助页面的示例部分。