如何通过R中的可变数量的列进行子集/求和

I'm currently in the process of designing what is essentially a maximization algorithm in R. What I'm trying to figure out is how to apply a "for each" and "subset by" (more accurately, "count/sum if") for an undefined number of variables (each in it's own column).I'm currently in the process of designing what