如何用R的ggpairs和plotly生成单三角交互式相关散点图矩阵

我懂你现在的困扰——用ggpairs做的静态散点图矩阵明明效果很好，转成ggplotly交互式版本后却一堆警告，效果还打折扣。这主要是因为两个核心原因：

• 部分Class分组只有1个数据点，ggpairs在计算统计元素时会自动丢弃这些组，静态版本也会触发这个警告，只是交互式转译时会重复触发；
• ggpairs生成的每个子图都带有高亮（highlight）属性，ggplotly无法同时处理多个高亮逻辑，导致出现Can only have one: highlight的警告。

下面给你两个靠谱的解决方案：

方案1：用Plotly原生函数生成（推荐） #

Plotly自带的splom函数专门用于生成散点图矩阵，完全适配交互逻辑，不会有兼容性问题，还能完美实现你要的分组、hover显示样本编号的需求。

library(plotly)

# 生成可复现的样本数据
set.seed(123)
sample_data <- data.frame(
  Class = sample(x= letters[1:15], size=50, replace = TRUE),
  Sample_number = seq(1, 50, by=1),
  x1= rnorm(50, mean=0, sd=.5),
  x2= rnorm(50, mean=0.5, sd=1.5),
  x3= rnorm(50, mean=5, sd=.1),
  x4= rnorm(50, mean=0, sd=3.5),
  x5= rnorm(50, mean=-6, sd=.005)
)

# 原生Plotly散点图矩阵
plot_ly(sample_data, 
        type = "splom",
        dimensions = list(
          list(label = "x1", values = ~x1),
          list(label = "x2", values = ~x2),
          list(label = "x3", values = ~x3),
          list(label = "x4", values = ~x4),
          list(label = "x5", values = ~x5)
        ),
        text = ~paste("Sample:", Sample_number, "<br>Class:", Class),
        color = ~Class,
        marker = list(size = 5)
) %>%
  layout(title = "Variable Correlations",
         hovermode = "closest")

这个版本的优势：

• 没有多余警告，交互响应流畅；
• hover时清晰显示Sample_number和Class信息；
• 颜色分组和静态ggpairs完全一致。

方案2：修复ggpairs转ggplotly的兼容性问题 #

如果你坚持要用ggpairs的静态图转译，可以通过调整参数避免冲突：

library(GGally)
library(plotly)

set.seed(123)
sample_data <- data.frame(
  Class = sample(x= letters[1:15], size=50, replace = TRUE),
  Sample_number = seq(1, 50, by=1),
  x1= rnorm(50, mean=0, sd=.5),
  x2= rnorm(50, mean=0.5, sd=1.5),
  x3= rnorm(50, mean=5, sd=.1),
  x4= rnorm(50, mean=0, sd=3.5),
  x5= rnorm(50, mean=-6, sd=.005)
)

# 调整ggpairs参数：移除aes中的text，避免高亮冲突
p1 <- ggpairs(data=sample_data,
              columns=3:7,
              title="Variable Correlations",
              aes(color = Class), # 这里去掉text=Sample_number，改用ggplotly的tooltip指定
              progress = FALSE,
              # 如果你要单三角矩阵，保留下面两行；要全矩阵就删掉
              upper=list(continuous="points"),
              lower="blank"
) + theme_bw()

# 转成ggplotly，手动指定hover显示的内容
ggplotly(p1, tooltip = c("x", "y", "colour", "Sample_number")) %>%
  layout(title = "Variable Correlations")

说明：

• 移除aes中的text=Sample_number，改用ggplotly的tooltip参数指定hover内容，避免子图间的文本属性冲突；
• Groups with fewer than two data points have been dropped的警告是ggpairs本身的统计逻辑导致的（小分组无法计算相关统计），静态版本也会出现，属于正常现象，若要消除可以合并样本量小于2的Class分组。

内容的提问来源于stack exchange，提问作者andemexoax