使用scatterplotMatrix绘图报错：'from'必须为有限数值，求解决

这个报错的核心原因是你用到的变量中存在无限值（Inf/-Inf），或者某个分组内的变量极值非有限。按以下步骤排查处理：

1. 检查变量极值是否存在非有限值 #

运行以下代码，逐个检查你用到的所有变量的最小值和最大值：

target_cols <- c("mean_f0_hz", "max_f0_hz", "min_f0_hz", "range_f0_hz", 
                 "q25_hz", "q50_hz", "q75_hz", "sound_duration_s", 
                 "am_var_d_b_s", "am_rate_s_1", "am_extent_d_b", 
                 "harmonicity", "mean_wiener_entropy")
sapply(df_squeal[, target_cols], function(x) c(min = min(x, na.rm = TRUE), max = max(x, na.rm = TRUE)))

如果输出里出现Inf或-Inf，就是问题所在。

2. 清理无限值 #

• 方案1：直接删除含无限值的行

# 筛选出所有变量都为有限值的行
df_squeal_clean <- df_squeal[apply(df_squeal[, target_cols], 1, function(row) all(is.finite(row))), ]

• 方案2：替换无限值为分位数（保留更多数据）
  如果不想删除行，可以用变量的分位数替换无限值：

df_squeal_clean <- df_squeal
for(col in target_cols){
  # 计算99%和1%分位数
  q99 <- quantile(df_squeal_clean[[col]], 0.99, na.rm = TRUE)
  q01 <- quantile(df_squeal_clean[[col]], 0.01, na.rm = TRUE)
  # 替换Inf和-Inf
  df_squeal_clean[[col]][df_squeal_clean[[col]] == Inf] <- q99
  df_squeal_clean[[col]][df_squeal_clean[[col]] == -Inf] <- q01
}

3. 验证清理结果 #

运行以下代码确认所有变量都是有限值：

sum(!is.finite(df_squeal_clean[, target_cols]))

输出应为0，说明清理完成。

4. 逐步测试代码 #

• 先去掉分组逻辑，测试基础功能：

  scatterplotMatrix(~ mean_f0_hz + max_f0_hz + min_f0_hz, data=df_squeal_clean)
  

  如果正常运行，再逐步添加更多变量，最后加上|id分组，定位是否有特定变量或分组导致问题。

• 若分组后仍报错，检查每个id组的变量分布：

  by(df_squeal_clean[, target_cols], df_squeal_clean$id, function(group) {
    sapply(group, function(x) length(unique(x)))
  })
  

  如果某个组内的变量唯一值数量为1（比如所有样本的max_f0_hz都相同），会导致极值相同，也可能触发报错。这种情况可以合并该组，或暂时移除对应的变量。

5. 重新运行原代码 #

用清理后的数据集df_squeal_clean运行你的原代码：

scatterplotMatrix(~ mean_f0_hz + max_f0_hz + min_f0_hz + range_f0_hz + q25_hz + q50_hz + q75_hz + sound_duration_s + am_var_d_b_s + am_rate_s_1 + am_extent_d_b + harmonicity + mean_wiener_entropy|id, data=df_squeal_clean)

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