r - 如果多个条件未在 r 中给出输出

Question

我有一个数据框

df= data.frame(ID=paste(rep("a",7),c(1:7),sep = ""),
               col2=c(12,10,1,2,5,10,8),
               col3=c(200,150,180,450,100,130,200))

我正在尝试检查总和为特定数字的那些元素的组合以及检查 sumproduct 的那些相同元素 但它没有给出任何输出例如从数据帧df这些值的总和为 25，所以

  col2  col3
    10   150
    5    100
    10   130

=sumproduct((E3:E5,D3:D5) [excel formula] 
output = 3300

这是我期望的以下代码的输出a2,a5,a6

这是我的代码

for(i in 1:nrow(df)){
  comb <- combn(1:nrow(df), i, FUN = NULL, simplify = TRUE)
  for (j in 1:ncol(comb)){
    subvec <- comb[,j]
    a <- sum(df[subvec,2])

     b <- sum(df[i, 2] * df[i, 3])
    if(a == 25 && b == 3300){
      print(df[subvec,1])
    }
  }
}