R语言如何使用lapply获取数据框各列异常值的位置索引

你当前的out是按列拆分的列表结构，逐列匹配行索引即可，不要把多列异常值合并为单个向量后全局匹配——否则不同列存在相同数值时会出现位置误判。

基础实现（和原有代码逻辑对齐） #

直接在lapply中同步完成「计算单列表异常值」「匹配异常值对应行号」两步，跳过第一列名称字段即可：

# 逐列返回异常值对应的行索引，列表名与原数据框列名一一对应
out_ind <- lapply(df[, -1], function(x) {
  out_vals <- boxplot.stats(x)$out
  which(x %in% out_vals)
})

返回结果结构和你之前生成的out完全对应：

• 列表每个元素的名称对应原数据框的列名
• 元素内存储的数值就是该列下所有异常值对应的行号，比如out_ind$value_col即可直接取value_col列的异常值位置

可选：输出结构化异常值汇总表 #

如果需要直接关联第一列的名称字段、直观查看所有异常值详情，可以直接生成汇总数据框：

outlier_detail <- do.call(rbind, lapply(names(df)[-1], function(col) {
  col_data <- df[[col]]
  out_vals <- boxplot.stats(col_data)$out
  out_rows <- which(col_data %in% out_vals)
  data.frame(
    所属列名 = col,
    行号 = out_rows,
    对应名称 = df[out_rows, 1],
    异常值 = col_data[out_rows]
  )
}))

提示：如果数据中存在缺失值NA，建议在传入boxplot.stats前先过滤缺失值，避免返回结果出现NA对应的无效索引。

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