ggpairs速度和对着色{base}

Question

我想知道ggpairs（）函数是否可以像pair（）一样快速灵活地设置（在着色方面很灵活，我意识到用户可以用ggpairs做更多事情，但我是更熟悉base r pair（））。

以下是使用钻石数据集的对示例：

diamonds$zcolor <- character(nrow(diamonds))
above <- 0.7
below <- 0.6
diamonds$zcolor[diamonds[['carat']] < below] <- "#E74C3C"
diamonds$zcolor[diamonds[['carat']] <= above & diamonds[['carat']] >= below] <- "#F1C40F"
diamonds$zcolor[diamonds[['carat']] > above] <- "#2ECC71"
pairs(head(diamonds[,1:10], 1800), col = diamonds$zcolor)

基本上，根据克拉值对数据着色。在我正在处理的应用中，用户可以为不同的颜色设置阈值（above＆amp; below）。我希望与ggpairs具有相同的功能 - 根据滑块选择颜色阈值。即便如此，没有着色ggpairs似乎比常规对慢得多。有没有办法解决这个问题？