8

のj引数に、同じステートメントdata.table内で以前に作成した変数を参照できる構文はありますか? jLisp のlet*構造のようなものを考えています。

library(data.table)
set.seed(22)
DT <- data.table(a = rep(1:5, each = 10),
                 b = sample(c(0,1), 50, rep = TRUE))

DT[ ,
   list(attempts = .N,
        successes = sum(b),
        rate = successes / attempts),
   by = a]

これにより、

# Error in `[.data.table`(DT, , list(attempts = .N, successes = sum(b),  : 
#  object 'successes' not found

理由はわかりますが、同じ方法でこれを達成する別の方法はありjますか?

4

2 に答える 2

8

これはトリックを行います：

DT[ , {
    list(attempts = attempts <- .N,
         successes = successes <- sum(b),
         rate = successes/attempts)
    },  by = a]
#    a attempts successes rate
# 1: 1       10         5  0.5
# 2: 2       10         6  0.6
# 3: 3       10         3  0.3
# 4: 4       10         5  0.5
# 5: 5       10         5  0.5

FWIW、この密接に関連するdata.table機能のリクエストにより、質問で使用されている構文が可能になります。リンク先のページから引用：

概要：

:=(and )の反復 RHS `:=`(...)、および複数の:=内部j = {...}構文

詳細な説明

例えばDT[, `:=`( m1 = mean(a), m2 = sd(a), s = m1/m2 ), by = group]

ここで、s は以前の lhs 名を使用できます (「反復」という言葉を使用して、それを伝えようとします)。

于 2013-05-16T16:31:31.887 に答える
5

代わりにこれを試してください：

DT[,
   {successes = sum(b);
    attempts  = .N;
    list(attempts = attempts,
         successes = successes,
         rate = successes / attempts)
   },
   by = a]

また

DT[,
   list(attempts = .N,
        successes = sum(b)),
   by = a][, rate := successes / attempts]
于 2013-05-16T16:31:40.040 に答える