爲什麼不在data.table中首先聚合行

我很困惑，爲什麼我無法通過data.table中的mean（）獲得每行的平均值。爲什麼不在data.table中首先聚合行

> aaa <- data.table(matrix(1:9, nrow = 3)) 
> aaa[, `:=` (avg = mean(V1 + V2 +V3), onethird = (V1 + V2 +V3)/3)] 
> aaa 
    V1 V2 V3 avg onethird 
1: 1 4 7 15  4 
2: 2 5 8 15  5 
3: 3 6 9 15  6

似乎什麼data.table所做的是平均值（V1）+平均（V2）+平均（V3），而不是平均值（V1 + V2 + V3）。

~~~~~~~~~~~~~~~~~~~~~~~~~

其實我想通過計算其他列的平均值生成一些更多的列，比如從V1和V2獲取avg12，從V3，V4和V5獲得avg345。

> aaa <- data.table(matrix(1:10, nrow = 2)) 
> aaa[, `:=` (avg12 = (V1 + V2)/2, avg345 = (V3 + V4 + V5)/3)] 
> aaa 
    V1 V2 V3 V4 V5 avg12 avg345 
1: 1 3 5 7 9  2  7 
2: 2 4 6 8 10  3  8

是否可以在（V1 + V2）或（V1，V2）上使用一些簡單的均值函數？

來源

2017-07-27 dh han

'AAA [，V1 + V2 + V3]的數目除以''給出C（12,15,18）' - 的平均這是'15' – thelatemail

謝謝@thelatemail。現在我意識到mean（）僅適用於單列。 –

@DavidArenburg - '爲什麼mean（）不會在data.table中的行之間聚合？'也許？ – thelatemail

我們可以用rowMeans來得到每一行的mean。它也可以直接應用到數據集（.SD - Data.table的子集，當我們不指定.SDcols，它需要在數據集中的所有列）

aaa[, `:=` (avg = rowMeans(.SD), onethird = (V1 + V2 + V3)/3)]

或者另一種選擇是得到由行的總和與Reduce，然後通過柱（length(.SD)）

aaa[, `:=` (avg = Reduce(`+`, .SD)/length(.SD), onethird = (V1 + V2 +V3)/3)]

來源

2017-07-27 02:54:42 akrun

aaa < - data.table（matrix（1:10，nrow = 2））; aaa [，mean12：= rowMeans（.SD），.SDcols = c（「V1」，「V2」）]; aaa [，mean345：= rowMeans（.SD），.SDcols = c（「V3」，「V4」，「V5」）]; –

@dhhan你的問題是什麼？ – akrun

這可能是一個解決方案。這很簡單，但不只是一個聲明。 –

爲什麼不在data.table中首先聚合行

回答

相關問題