R语言异常值无法存入向量求助：控制台可打印但向量为空

核心问题是作用域限制：在lapply的匿名函数内部对ClusterRepVector的赋值，仅在函数的局部环境生效，不会修改全局环境中最初定义的空向量。因此函数执行完毕后，全局的ClusterRepVector仍保持初始空状态。

推荐通过lapply收集每一列的异常值名称，最后合并为向量，这种方式更符合R的函数式编程逻辑，也能避免全局变量修改的副作用。

修正后的代码如下：

i_num <- which(sapply(tpose_genexp, is.numeric))
i_num <- i_num[c(1, 4, 5)]

# 用lapply收集每列的异常值名称，返回列表
outlier_list <- lapply(names(tpose_genexp[i_num]), function(x) {
  bp <- boxplot(tpose_genexp[[x]], 
                horizontal = FALSE,
                lwd = 2,
                col = rgb(1, 0, 0, alpha = 0.4),
                main = x,
                notch = TRUE, 
                border = "black",
                outpch = 25,
                outbg = "green",
                whiskcol = "blue",
                whisklty = 2,
                lty = 1 )
  i_row <- which(tpose_genexp[[x]] %in% bp$out)
  labs <- if(length(i_row)) {
    tapply(row.names(tpose_genexp)[i_row], bp$out, paste, collapse = ", ")
  } else ""
  text(1.1, unique(bp$out), labels = labs, pos = 4)
  
  # 返回当前列的异常值名称
  row.names(tpose_genexp)[i_row]
})

# 将列表合并为向量
ClusterRepVector <- unlist(outlier_list)

# 若需去重（同一样本在多列均为异常的情况），可添加：
# ClusterRepVector <- unique(ClusterRepVector)

• 若一定要在lapply内部修改全局变量，可使用<<-赋值符（如ClusterRepVector <<- c(ClusterRepVector, outliername)），但这种方式不推荐，会破坏代码封装性，增加调试难度。
• 原代码中which(tpose_genexp[[x]] %in% bp$out)可能出现重复匹配（列内存在相同值的异常），若数据有此情况，可结合bp$out的位置精准匹配，避免重复。

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