dplyr ::發生變異：臨時貴變量輸入到其他幾個操作，橫行

Question

這是一個有點棘手，以顯示我的真實數據的問題，但我希望以下的介紹：

data_frame(a=c(1,2), b=c(3,4)) %>% 
rowwise %>% 
mutate(c = a*b, d = c-1, e=c+2) %>% 
ungroup 

在上面的例子中當然rowwise是不需要的。

現在讓我們假設c的計算既耗時又耗時，c是一個很大的對象而沒有向量化。 所以你不需要執行兩次，並且希望在每一行計算髮生後從內存中清除它。

有沒有一個聰明的方法來做到這一點？也許用purrr::map？

Answer 1

這是使用purrr s invoke_rows的答案。

library(purrr) 

MyDf<-data.frame(a=c(1,2), b=c(3,4)) 
invoke_rows(.d=MyDf, .f=function(a,b){c=a*b 
c(d=c-1, 
e=c+2)}, 
.collate="cols") 

更新

針對@JanStanstrup的評論，如果您有另一列要作爲輸出的一部分，但不會出現在計算中，你可以這樣做：

MyDf<-data.frame(a=c(1,2), b=c(3,4), dummy=c(6,7)) 
invoke_rows(.d=MyDf, .f=function(a,b,...){c=a*b 
c(d=c-1, 
    e=c+2)}, 
.collate="cols") 

這裏，dummy和任何其它列經由...作爲參數傳遞到.f功能，但在這種功能不被使用，所以它們只是一直傳下去。