r - 添加具有数据帧 R 中行最后一列的最后一个值的每一列

Question

我想用 R 中行的最后一列添加数据框的每一列。
我的数据框-

L   E   B1  P   B2  M   Value
5   5   0   20  2   5   100
10  6   0   40  15  2   150
6   15  0   50  6   10  160
1   10  0   55  5   20  160
0   20  0   80  0   20  200
10  1   20  80  10  10  250
8   2   40  30  5   10  300
5   3   60  30  5   20  350
5   4   30  75  5   20  400
1   0   50  80  0   10  400
2   0   40  60  5   20  500
0   0   60  50  0   30  500

所以第一行会像-

L   E   B1  P   B2  M   Value
5*100   5*100   0*100   20*100  2*100   5*100   100
10  6   0   40  15  2   150
6   15  0   50  6   10  160
1   10  0   55  5   20  160
0   20  0   80  0   20  200
10  1   20  80  10  10  250
8   2   40  30  5   10  300
5   3   60  30  5   20  350
5   4   30  75  5   20  400
1   0   50  80  0   10  400
2   0   40  60  5   20  500
0   0   60  50  0   30  500

我尝试使用 lapply

lapply(df1, function(x) x * tail(x,1) )

但它需要行值，因此如何获取每一行的最后一列值或任何特定列以与 R 中的所有其他列值相加

Answer 1

使用 dplyr 并假设您的数据帧是 df:

library(dplyr)

df %>% mutate_each(funs(. * Value), -Value)