向量化数据帧的行，应用向量函数，返回原始数据帧 r

Question

给定以下df：

a=c('a','b','c')
b=c(1,2,5)
c=c(2,3,4)
d=c(2,1,6)
df=data.frame(a,b,c,d)

  a b c d
1 a 1 2 2
2 b 2 3 1
3 c 5 4 6

我想逐行应用一个函数，该函数通常采用 cummax 之类的向量（并返回向量）到位置 b 到 d 的列。

然后，我想将输出返回到 df 中，或者作为 df 新列中的向量，或者替换原始数据。

我想避免将它写成for 循环，它会迭代每一行，将单元格的内容拉出到一个向量中，做它的事情然后放回去。

有没有更有效的方法？我已经尝试了 apply 系列函数，但我一直在努力寻找一种好的方法来逐行矢量化列的内容并获得正确的输出。

最终输出可能看起来像这样（假设我应用了 cummax() 函数）。

    a b c d 
1   a 1 2 2
2   b 2 3 3
3   c 5 5 6

或

    a b c d output
1   a 1 2 2 (1,2,2)
2   b 2 3 1 (2,3,3)
3   c 5 4 6 (5,5,6)

其中输出是一个向量。

Answer 1

似乎这只是一个简单的apply 问题，您想 cbind 到 df：

> cbind(df, apply(df[ , 4:2]   # work with columns in reverse order
                     , 1,      # do it row-by-row
                      cummax) )
  a b c d 1 2 3
d a 1 2 2 2 1 6
c b 2 3 1 2 3 6
b c 5 4 6 2 3 6

哎哟。没有注意到这将在面向列的矩阵中返回并且需要转置该结果而被咬住；这样的新手错误。但它确实显示了我认为对可重现数据集提出问题的价值。

> cbind(df, t(apply(df[ , 4:2] , 1, cummax) ) )
  a b c d d c b
1 a 1 2 2 2 2 2
2 b 2 3 1 1 3 3
3 c 5 4 6 6 6 6

要将结果破坏性地分配给 df，您只需使用：

df <-   # .... that code.

这使用逗号进行连接（因此不再需要转置：

> cbind(df, output=apply(df[ , 4:2] , 1, function(x) paste( cummax(x), collapse=",") ) )
  a b c d output
1 a 1 2 2  2,2,2
2 b 2 3 1  1,3,3
3 c 5 4 6  6,6,6