如何在R语言中按每50行循环处理数据？

你原来的代码有两个关键问题：

• 错误把三个区间的所有行号合并成了一个扁平向量，循环时每次只取单独一行的数据，dist()对单个值计算距离矩阵毫无意义，自然出不了有效结果；
• 循环里的计算结果既没打印也没保存，就算逻辑对也看不到输出。

你要循环的是三个区间，不是区间里的每一行。先把三个区间放进列表，再遍历处理：

# 定义三个目标行区间
target_intervals <- list(1:50, 51:100, 101:150)

# 可选：初始化空列表存结果，方便后续调用
output_list <- list()

# 遍历每个区间
for (i in 1:length(target_intervals)) {
  # 取出当前区间的第2列数据
  current_col <- iris[target_intervals[[i]], 2]
  # 计算距离矩阵（注意你之前拼写错了：是euclidean，不是euclidian）
  dist_mat <- as.matrix(dist(current_col, method = "euclidean"))
  # 打印当前区间的结果
  print(paste("处理第", i, "个区间的结果："))
  print(dist_mat)
  # 把结果存入列表
  output_list[[paste("区间", i)]] <- dist_mat
}

R里用lapply可以省掉循环索引的管理，代码更简洁：

target_intervals <- list(1:50, 51:100, 101:150)
output_list <- lapply(target_intervals, function(rows) {
  as.matrix(dist(iris[rows, 2], method = "euclidean"))
})

# 查看第一个区间的结果
output_list[[1]]

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