4

私の質問はこれに関連しています：

ベクトル出力を data.table の列に変換しますか?

しかし、私の状況はもう少し複雑です。ベクトルを列として返すだけでなく、同時に他の列も計算しています。例えば：

DT = data.table(X = 1:10, Y = 11:20, Z = 21:30, group = rep(1:10, each = 3))

featuresDT <- quote(list(x = mean(X),
                         y = mean(Y),
                         z = mean(Z),
                         as.list(quantile(X))))

DT[, eval(featuresDT), by = "group"]

wherequantileは長さ 5 のベクトルを返します。8 列の data.table を取得する代わりに、4 列のデータを取得すると、quantile結果が余分な行として表示され、x, y and z5 回複製されます。私も試しdist = as.list(quantile(X)ましたが、結果は同じですが、列名が異なります。

4

2 に答える 2

3

を に変更するだけlistですc。cタイプの任意の値を使用listすると、自動的にlist)になります。

featuresDT <- quote(c(x = mean(X),
                         y = mean(Y),
                         z = mean(Z),
                         as.list(quantile(X))))
DT[, eval(featuresDT), by = "group"]

    group        x        y        z 0% 25% 50% 75% 100%
 1:     1 2.000000 12.00000 22.00000  1 1.5   2 2.5    3
 2:     2 5.000000 15.00000 25.00000  4 4.5   5 5.5    6
 3:     3 8.000000 18.00000 28.00000  7 7.5   8 8.5    9
 4:     4 4.333333 14.33333 24.33333  1 1.5   2 6.0   10
 5:     5 4.000000 14.00000 24.00000  3 3.5   4 4.5    5
 6:     6 7.000000 17.00000 27.00000  6 6.5   7 7.5    8
 7:     7 6.666667 16.66667 26.66667  1 5.0   9 9.5   10
 8:     8 3.000000 13.00000 23.00000  2 2.5   3 3.5    4
 9:     9 6.000000 16.00000 26.00000  5 5.5   6 6.5    7
10:    10 9.000000 19.00000 29.00000  8 8.5   9 9.5   10
于 2013-08-12T23:40:54.223 に答える