r - 如何将双变量箱线图（bv.boxplot）叠加到r中的相关矩阵（对）

Question

我想用双变量图从我的主成分分析分数创建一个相关矩阵。我分别使用了两个函数，它们一起创建了单个双变量图，但我不知道如何扩展这个pair函数。

Test_Data
    Comp.1 Comp.2 Comp.3 Comp.4 Comp.5
x 1   4.21  -0.32   1.35  -0.31  -2.41
x 2  -1.36   0.52  -0.68  -0.45  -0.57
x 3  -0.58  -6.87   3.20  -2.07   1.30
x 4  -0.77   1.85   0.41  -0.39  -0.43
x 5   0.16   0.67  -1.86  -0.23   1.56

这是我使用的两个功能：

txttest <- function(x,y, ...) {
  text(x,y, adj = c(0,1.5),pos = 3,
       abbreviate(row.names(Test_Data)))
}

bvplot <-function(x,y, ...) {
  bv.boxplot(x,y, robust = TRUE,
             ID.out = FALSE, bg.out = "red",
             cex.ID.out = 0.7, uni.CI = TRUE, uni.conf = 0.95)
}

产生这样的图（对于 31 个观察的样本）：

但我想在我的配对图中叠加双变量图，如下图所示：

谢谢你。