计算所有行的耦合列的总和

Question

因此，标题说我想计算数据框中某些列的总和，并为所有行重新计算此计算。

我想以三种不同的方式做到这一点。我知道最简单的解决方案：

vec_summed <- rowSums(mtcars[, c(4, 5, 6, 7, 8)])

但是如何使用apply来做到这一点。我试过的那个有什么问题：

vec_summed <- apply(mtcars, 1, function(x) sum(mtcars[,4:8]))  

最后一个问题是如何使用循环来做到这一点。这对我来说也很重要。