R语言中能否向量化依赖数组元素索引的运算操作？

完全可以通过向量化操作替代你写的循环，这在R里是高效且简洁的常规做法。

你的需求是让向量TEST.1的第i个元素除以i，本质上就是让TEST.1的每个元素对应除以位置索引向量。直接生成索引向量后做元素级除法即可，无需循环：

TEST.1 <- runif(10000, min = 0, max = 10000)
TEST.2 <- TEST.1 / seq_along(TEST.1)

为什么这样可行？ #

• seq_along(TEST.1)会生成和TEST.1长度一致的索引向量（这里等价于1:10000，但更通用，哪怕TEST.1长度变化也不用修改代码）
• R的算术运算默认是元素级操作，两个长度相同的向量做除法时，会自动对应位置的元素相除，逻辑和你写的循环完全一致，但效率更高（R中的循环通常比向量化操作慢，数据量越大差异越明显）

验证等价性 #

用小数据量测试，确认两种方式结果一致：

test_small <- c(10,20,30)
# 循环方式
test_result_loop <- numeric(3)
for(i in 1:3) test_result_loop[i] <- test_small[i]/i
# 向量化方式
test_result_vec <- test_small / seq_along(test_small)

# 对比结果
all.equal(test_result_loop, test_result_vec)
# 输出 TRUE

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