如何在R中循环计算单列所有排列组合的两两均值

你可以通过两种方式实现需求，分别是效率更高的向量化实现，和符合你要求的循环实现：

前置步骤：读取数据 #

首先将你的数据读入R环境，假设你的数据文件为csv格式，目标数值列的列名为value，读取代码如下：

# 读取数据，替换为你的实际文件路径
df <- read.csv("你的文件路径.csv")
x <- df$value
# 校验数据长度，确认是96个值
length(x)

方案1：向量化实现（推荐，运行效率更高） #

直接使用R的outer函数生成所有有序配对的均值，一行代码即可得到96*96=9216个结果：

# 生成96x96矩阵，矩阵第i行第j列的值就是第i个值和第j个值的配对均值
mean_matrix <- outer(x, x, FUN = function(a, b) (a + b)/2)
# 如果需要将结果转为一维向量，按顺序展开所有结果
mean_vector <- as.vector(t(mean_matrix))

你也可以将结果转为数据框，标注对应的配对索引，方便后续查看使用：

result_df <- data.frame(
  index1 = rep(1:96, each = 96),
  index2 = rep(1:96, times = 96),
  pair_mean = mean_vector
)

方案2：循环实现 #

如果你需要通过循环逻辑实现，两层循环代码如下：

# 初始化结果向量，长度为96*96=9216
mean_vector <- numeric(96*96)
# 计数器
k <- 1
for (i in 1:96) {
  for (j in 1:96) {
    mean_vector[k] <- (x[i] + x[j])/2
    k <- k + 1
  }
}

结果导出 #

如果需要将结果导出为csv文件，可以使用以下代码：

write.csv(result_df, "配对均值结果.csv", row.names = FALSE)

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