R中的行明智矩陣操作

Question

最近我碰到了data.table包。 我還不確定如何進行行式矩陣操作。 最初是打算如何處理這種操作？ 例如，什麼data.table相當於apply(M,1,fun)？

fun應該帶一個向量作爲參數，例如mean,median或mad。

Answer 1

我認爲您正在尋找:=運營商（請參閱?':='）。一個簡短的例子和與mapply函數的比較如下（我希望我正確地應用mapply函數;我現在只使用data.tables，所以沒有承諾;但仍然，data.table方法是快速的並且在我的意見很容易記住）：

library(data.table) 
> df <-  data.frame(ID = 1:1e6, 
+      B = rnorm(1e6), 
+      C = rnorm(1e6)) 
> system.time(x <- mapply(foo, df$B, df$C)) 
    user system elapsed 
    4.32 0.04 4.38 
> DT <- as.data.table(df) 
> system.time(DT[, D := foo(B, C)]) 
    user system elapsed 
    0.02 0.00 0.02 
> all.equal(x, DT[, D]) 
[1] TRUE 

張貼我的答案後，我不太確定了，如果這是你在找什麼。我希望它能做到，只是給出更多細節（例如，你是否有許多列需要應用函數，而不僅僅是我的例子中的兩個）。無論如何，這SO post可能是你感興趣的。