ネストされたdata.tableで参照によってlist-columnを変更します。

Question

ネストされたdata.tableでdata.tablesのリスト列を使用すると、その列に関数を適用するのは簡単です。例：

我々が使用できる

dt<- data.table(mtcars)[, list(dt.mtcars = list(.SD)), by = gear] 

：

dt[ ,list(length = nrow(dt.mtcars[[1]])), by = gear] 

dt[ ,list(length = nrow(dt.mtcars[[1]])), by = gear] 

    gear length 
1: 4  12 
2: 3  15 
3: 5  5 

または

dt[, list(length = lapply(dt.mtcars, nrow)), by = gear] 

    gear length 
1: 4  12 
2: 3  15 
3: 5  5 

私は同じプロセスを行うと、各データにオペレータ:=を使用して参照することにより、変更を適用したいと思います。列のテーブル。

例：

エラーを返し

modify_by_ref<- function(d){ 

    d[, max_hp:= max(hp)] 


} 

dt[, modify_by_ref(dt.mtcars[[1]]), by = gear] 

：エラーメッセージの先端を使用して

Error in `[.data.table`(d, , `:=`(max_hp, max(hp))) : 
    .SD is locked. Using := in .SD's j is reserved for possible future use; a tortuously flexible way to modify by group. Use := in j directly to modify by group by reference. 

が私のためにどのように動作していない、それは多分、別のケースをターゲットにしているようだが、私は何かが足りない。 refresによってリストの列を変更するための推奨される方法や柔軟な回避策はありますか？

Answer 1

これは、2つのステップを以下にまたはシングル・ステップで行うことができます

与えられたテーブルがある：

dt<- data.table(mtcars)[, list(dt.mtcars = list(.SD)), by = gear] 

ステップ1 - の列のリストにdt

の各行の hpベクトルを追加してみましょう

dt[, hp_vector := .(list(dt.mtcars[[1]][, hp])), by = list(gear)] 

ステップ2 - 最大値を計算するhp

dt[, max_hp := max(hp_vector[[1]]), by = list(gear)] 

与えられたテーブルがある：

dt<- data.table(mtcars)[, list(dt.mtcars = list(.SD)), by = gear] 

シングルステップ - シングルステップは実際には、上記の手順の両方の組み合わせである：

dt[, max_hp := .(list(max(dt.mtcars[[1]][, hp])[[1]])), by = list(gear)] 

我々がでネストされたテーブル内の値を移入する場合それでは、警告メッセージを無視する必要があるだけで、それを行う方法については、次のリンクを参照してください。誰かが警告メッセージを修正する方法を教えてくれる場合や、落とし穴がある場合は、私は満足しています。詳細については、リンクを参照してください：

https://stackoverflow.com/questions/48306010/how-can-i-do-fast-advance-data-manipulation-in-nested-data-table-data-table-wi/48412406#48412406 

私は与えられたデータセットについてここでそれを行う方法を示すつもりです。

てみましょう最初のクリーンすべて：

rm(list = ls()) 

レッツ・別の方法で再定義し、指定された表：私は少し異なるテーブルを定義している

dt<- data.table(mtcars)[, list(dt.mtcars = list(data.table(.SD))), by = list(gear)] 

注意を。私はdata.tableを上記の定義に加えて使用しました。

次に、ネストした表内参照によって最大に移入：

dt[, dt.mtcars := .(list(dt.mtcars[[1]][, max_hp := max(hp)])), by = list(gear)] 

をそして、私たちは、ネストされたテーブル内の操作を行うことができます何が良いものを期待することができます。

dt[, dt.mtcars := .(list(dt.mtcars[[1]][, weighted_hp_carb := max_hp*carb])), by = list(gear)]