einschließen Spalten für die Berechnung nicht in data.table Ergebnis verwendet

Question

Ich habe folgende Datentabelle:

id user V1 V2 V3 V4 
1: 1 1 1 1 1 0 
2: 1 2 4 1 3 1 
3: 1 3 0 1 6 0 
4: 2 1 1 0 2 1 
5: 2 2 2 1 0 0 

und I führt eine lapply Gruppe von ID-Berechnung:

my_data[,lapply(.SD,mean)*.SD,by=id,.SDcols=3:5] 

Das Ergebnis ist die folgende :

id V1 V2  V3 
1: 1 1.666667 1.0 3.333333 
2: 1 6.666667 1.0 10.000000 
3: 1 0.000000 1.0 20.000000 
4: 2 1.500000 0.0 2.000000 
5: 2 3.000000 0.5 0.000000 

gibt es eine einfache Datentabelle Art und Weise die Spalte Benutzer enthalten aus der ursprünglichen Datentabelle? Ich habe es geschafft, es zu tun mit

cbind(my_data[,.(user)], my_data[,lapply(.SD,mean)*.SD,by=id,.SDcols=3:5]) 

aber ich hoffe wirklich, es ist ein schöner Weg

Answer 1

Wir die Zuordnung von .SD

my_data[,(3:5) := lapply(.SD,mean)*.SD,by=id,.SDcols=3:5] 

Oder statt der Multiplikation tun, was wir tun es innerhalb der Schleife selbst.

my_data[, (3:5) := lapply(.SD, function(x) mean(x)*x), .SDcols = 3:5, by = id] 

Answer 2

Ich schlage vor, Sie gehen durch die vignettes. Die Einführung in data.table Vignette einen wichtigen Punkt erklärt, die ich hier wiederholen würde ..

Solange j gibt eine Liste, jedes Element der Liste wird zu einer Spalte in dem resultierenden data.table.

In der Basis R gibt c(list, list) eine neue Liste mit allen Elementen zurück. Wir können einfach, dass die vorhandene Funktionalität zu tun verwenden:

require(data.table) # v1.9.7 devel 
dt[, c(list(user=user), lapply(.SD, function(x) x*mean(x))), by=id, .SDcols=V1:V4] 

ich auf dem current development version of data.table, v1.9.7 bin, die bestimmte neue Funktionen, beispielsweise Verwendung von V1:V4 in .SDcols: