R语言中针对变量正负组合的循环函数实现问询

我有如下正负组合（对应8种迭代场景）：

1 2 3 4 5 6 7 8
 + + + + - - - -
 + + - - + + - -
 + - + - + - + -

需要针对这段代码遍历每一种组合：

tbl44 <- tbl4 %>%
  top_n(280) %>%
  top_n(140) %>%
  top_n(70) %>%
  slice_head(n = 70)

迭代示例：

• 第一次：+280, +140, +70
• 第二次：+280, +140, -70
• 第三次：+280, -140, +70
• ……以此类推，共8次迭代

关键要求：每次迭代后需要退出循环（这段循环会嵌套在更大的循环代码中）

我自己写了一段实现代码，求改进建议：

x = 1

mt <- list(list(280, 140, 70), list(280, 140, -70), list(280, -140, 70), list(280, -140, -70), 
           list(-280, 140, 70), list(-280, 140, -70), list(-280, -140, 70), list(-280, -140, -70))


while (x <= 8) {
a <- as.integer(mt[[x]][1])
b <- as.integer(mt[[x]][2])
c <- as.integer(mt[[x]][3])

print(a)
print(b)
print(c)

tbl44 <- tbl4 %>%
  top_n(a) %>%
  top_n(b) %>%
  top_n(c) %>%
  slice_head(n = 70)

 x = x + 1
 break
}

1. 自动生成参数组合，避免手动枚举
   手动写8种组合容易出错，用expand.grid自动生成所有正负组合，代码更简洁且扩展性强（后续修改参数数量或数值时无需手动调整）：

# 生成所有符号组合（1为正，-1为负）
sign_combinations <- expand.grid(c(1, -1), c(1, -1), c(1, -1))
# 对应乘以目标数值，得到完整参数列表
param_list <- pmap(sign_combinations, function(s1, s2, s3) {
  list(s1*280, s2*140, s3*70)
})

2. 修正循环逻辑，适配“单次迭代后退出”的需求
   原代码中的break会直接终止循环，只执行一次就退出。如果要配合外部大循环实现“每次执行一轮迭代后退出”，可以把单次迭代封装成函数，由外部逻辑控制执行次数：

# 定义单次迭代函数，传入参数索引即可执行对应组合的逻辑
run_single_iter <- function(idx) {
  params <- param_list[[idx]]
  cat("当前使用参数：", params[[1]], params[[2]], params[[3]], "\n")
  
  # 返回处理后的结果
  tbl4 %>%
    top_n(params[[1]]) %>%
    top_n(params[[2]]) %>%
    top_n(params[[3]]) %>%
    slice_head(n = 70)
}

# 外部循环控制示例：
# x <- 1
# while(x <= 8) {
#   tbl44 <- run_single_iter(x)
#   # 这里添加迭代后的其他业务逻辑
#   x <- x + 1
# }

3. 去除冗余的类型转换
   原代码中as.integer属于冗余操作，因为构造的参数列表里已经是整数类型，直接取值即可。

4. 优化结果存储（可选）
   如果需要保留每次迭代的结果，建议用列表存储，避免每次覆盖同一个变量：

results <- list()
for(idx in 1:8) {
  results[[idx]] <- run_single_iter(idx)
  # 若需中途退出，可添加条件判断，比如：
  # if(需要退出的条件) break
}

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