R语言如何使用ifelse函数计算向量两两比较并生成统计矩阵

核心报错原因 #

• 括号匹配逻辑错误：你单独测试两列运算的代码括号逻辑是正确的，sum包裹的是整个ifelse的输出结果，但写进outer函数的代码里sum的右括号提前闭合，仅包裹了abs(rio_csv[[i]]-rio_csv[[j]])，导致ifelse的判断逻辑完全错位，参数传递异常触发报错。
• 潜在风险：如果数据集中存在非数值类型的列，列之间做减法运算也会触发报错，单独测试V1、V2正常不代表所有列均为数值类型。

修正后的可用代码 #

首先先清洗数据，仅保留数值列避免运算异常：

# 筛选所有数值类型的列，非数值列会自动剔除
rio_csv_num <- rio_csv[, sapply(rio_csv, is.numeric)]

再修正括号位置实现需求：

juan <- outer(seq_along(rio_csv_num), seq_along(rio_csv_num), FUN =
  Vectorize(function(i, j) sum(ifelse(abs(rio_csv_num[[i]] - rio_csv_num[[j]]) > 1, 1, 0))))

也可以简化写法，R中逻辑值TRUE/FALSE默认对应1/0，不需要额外调用ifelse：

juan <- outer(seq_along(rio_csv_num), seq_along(rio_csv_num), FUN =
  Vectorize(function(i, j) sum(abs(rio_csv_num[[i]] - rio_csv_num[[j]]) > 1)))

生成的juan就是你需要的对称统计矩阵，行名和列名对应原数据集的数值列顺序。

高性能替代方案 #

如果数据集行数较多，outer+Vectorize的迭代方式效率偏低，可以用矩阵广播特性一步完成计算，速度提升非常明显：

mat <- as.matrix(rio_csv_num)
juan <- sapply(seq_len(ncol(mat)), function(i) colSums(abs(mat - mat[,i]) > 1))

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