对每列应用计算

Question

我有一个包含67列的数据集。每列都有异构名称，如＆＃34; flower＆＃34;，＆＃34; stones＆＃34;，＆＃34; xxxx＆＃34;，＆＃34; yyyy＆＃34;等。

我想做以下事情： 从第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]