在for循环中向向量存储数据：为何向量apari仍为NULL？

为什么全局的apari始终是NULL？ #

R采用词法作用域规则，函数内部定义的apari是独立的局部变量，和全局环境中的apari完全是两个不同的对象。哪怕你提前在全局创建了apari，函数执行时仍会生成自己的局部版本，函数结束后局部变量被销毁，全局的apari自然不会被修改。

解决方法 #

方法1：推荐——直接赋值函数返回值

这是最符合R编程规范的方式，无需修改函数内部，只需将函数的返回结果赋值给全局的apari：

set.seed(0)
a <- round(runif(20,1,50), digits=0)
apari <- c()

is.pari <- function(a){ 
    apari_local <- c() # 用局部变量存储结果，避免命名混淆
    for (i in 1:length(a)){
        if((a[i]%%2)==0){ 
            apari_local <- c(apari_local, a[i]) 
        }
    }
    return(apari_local)
}

# 将函数返回值赋值给全局apari
apari <- is.pari(a)
apari # 现在会输出正确的偶数向量

方法2：修改全局变量（不推荐）

如果一定要在函数内部直接修改全局变量，可以使用<<-运算符代替<-，它会向上查找父环境中的变量并进行修改：

set.seed(0)
a <- round(runif(20,1,50), digits=0)
apari <- c()

is.pari <- function(a){ 
    for (i in 1:length(a)){
        if((a[i]%%2)==0){ 
            apari <<- c(apari, a[i]) # 使用<<-修改全局变量
        }
    }
    return(apari)
}

is.pari(a)
apari # 现在全局apari会被更新

⚠️ 注意：这种方式会让代码逻辑变得模糊，后期调试难度大，除非特殊需求否则不建议使用。

方法3：更高效的向量化操作（替代循环）

R的核心优势是向量化运算，完全不需要写循环就能快速筛选偶数：

set.seed(0)
a <- round(runif(20,1,50), digits=0)
apari <- a[a %% 2 == 0] # 直接筛选数组中的偶数
apari

这种方式代码更简洁，执行效率也远高于循环写法。

内容的提问来源于stack exchange，提问作者Mora S.p.A. carrelli elevatori