R语言新手求助：如何用双重求和替代多层嵌套for循环？

刚从C++/Java转R确实会有编程习惯上的转换，我来帮你理清楚问题和解决方法～

先解释你遇到的报错原因 #

你写的seq(j, 100)里，j是一个长度为98的向量（从2到99的所有整数），但seq()的from参数要求是单个数值，不能直接传入向量，这就是报错的根源。

用函数式/向量化方法实现双重求和 #

R里确实不推荐显式嵌套for循环，下面提供几种更符合R风格的实现方式，效果等价于你想要的双重求和逻辑：

1. 贴近思路的base R函数式写法

用sapply遍历每个j值，计算对应k序列的和，再汇总所有结果：

# 定义j的取值范围
j_range <- 2:99
# 对每个j，计算k从j到100的和，再累加所有单个和
total <- sum(sapply(j_range, function(j) sum(j:100)))
total

这里j:100是seq(j, 100)的简洁写法，sapply会自动遍历j_range的每个元素，返回所有单个和组成的向量，最后用sum()完成汇总。

2. tidyverse风格的函数式写法

如果你习惯用tidyverse工具链，用purrr包的map_dbl会更直观：

library(purrr)

j_range <- 2:99
total <- j_range %>% 
  map_dbl(~sum(.x:100)) %>%  # 对每个j计算k的和
  sum()  # 汇总所有结果
total

3. 最高效的向量化数学公式法

上面两种方法还是基于遍历，如果你处理的范围很大，推荐用数学公式直接计算（完全无循环，速度最快）：
我们知道从a到b的整数和公式是：(b*(b+1)/2) - ((a-1)*a/2)。对每个j来说，k从j到100的和可以直接用公式计算，再对所有j值求和：

n <- 100
j_range <- 2:99
# 计算每个j对应的k求和结果
single_sums <- (n*(n+1)/2) - ((j_range - 1)*j_range/2)
# 汇总所有结果
total <- sum(single_sums)
total

对比：等价的嵌套for循环写法（仅作参考） #

如果你想对应理解原来的嵌套循环逻辑，写法大概是这样（不推荐在R中使用）：

total <- 0
for(j in 2:99) {
  for(k in j:100) {
    total <- total + k
  }
}
total

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