使用数据框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)