对每一列应用计算

Question

我有一个包含 67 列的数据集。每列都有不同的名称，如“flower”、“stones”、“xxxx”、“yyyy”等。

我想做以下事情： 从第 2 列到第 67 列迭代，并将每列的值替换为其原始值与第一列中相应值的总和。

作为一个小例子，假设数据集仅包含具有以下值的三列：

         First Colum     Flowers       Stones
        3                   2           2 
        4                   5           3
        5                   6           1
        6                   7           9

应用所需的步骤后，它现在应该如下所示：

         First Colum     Flowers      Stones 
        3                   5           5 
        4                   9           7
        5                   11          6
        6                   13          15

Answer 1

如果dat是数据集

 dat[,-1] <- lapply(dat[,-1], function(x) x+dat[,1])
  dat
  #  First Colum Flowers Stones
  #1           3       5      5
  #2           4       9      7
  #3           5      11      6
  #4           6      13     15

或

 dat[,-1] <- dat[,-1]+dat[,1]