r - lapply、rowSums 和 passign 参数

Question

考虑这段代码

lapply(lst,rowSums)

lst是五个数据帧的列表。例如，每个数据框有四列和十行。我想在每一行中添加列的值，但是，我不想在总和中包含第一列的值。

我可以使用for循环和下面的代码：

lst_sum = list()
for (ii in c(1,5))
{
 dummy <- lst[[ii]]
 dummy <- rowSums(dummy[,seq(2,4,by = 1)])
 lst_sum[[ii]] = dummy 
 }

我想使用lapply或类似的功能，因为我认为for循环看起来丑陋且效率低下。

Answer 1

With the help of comments I got this solution:

 lapply(lst,function(x) rowSums(x[,seq(2,4,by = 1)]))