1

次の data.table があります。

  dt=structure(list(a = c("10", "10", "20", "30", "10", "25", "10"
    ), b = c("0.605887455840394", "0", "0.709466017509524", "0", 
    "0.585528817843856", "-0.109303314681054", "-0.453497173462763"
    ), c = c("-0.919322002474128", "0", "0.630098551068391", "0", 
    "-1.81795596770373", "-0.276184105225216", "-0.284159743943371"
    ), d = c("-0.750531994502331", "0", "1.81731204370422", "0", 
    "-0.116247806352002", "0.370627864257954", "0.520216457554957"
    ), e = c("0.298723699267293", "0", "-0.886357521243213", "0", 
    "0.816899839520583", "-0.331577589942552", "1.12071265166956"
    ), key = c("A", "A", "B", "B", "C", "C", "C")), .Names = c("a", 
    "b", "c", "d", "e", "key"), row.names = c(NA, -7L), class = c("data.table", 
        "data.frame"), sorted = "key")

これにより、以下に示すようなデータテーブルが得られます。

    a                  b                  c                  d                  e key
1: 10  0.605887455840394 -0.919322002474128 -0.750531994502331  0.298723699267293   A
2: 10                  0                  0                  0                  0   A
3: 20  0.709466017509524  0.630098551068391   1.81731204370422 -0.886357521243213   B
4: 30                  0                  0                  0                  0   B
5: 10  0.585528817843856  -1.81795596770373 -0.116247806352002  0.816899839520583   C
6: 25 -0.109303314681054 -0.276184105225216  0.370627864257954 -0.331577589942552   C
7: 10 -0.453497173462763 -0.284159743943371  0.520216457554957   1.12071265166956   C

すべてゼロの行を削除するサブセット操作を実行したいと思います。

私はその線に沿って何かを考えていました

dt[!(all(i[2:4) == 0)]しかし、data.tableで実際にそれを述べる方法がわかりません

これについて何か助けていただければ幸いです。

4

3 に答える 3

2

1) 最初の行は適切な行を選択する論理ベクトルを作成し、2 行目はそれらを選択します。

ok <- dt[, ! apply(.SD == 0, 1, all), .SDcols = 2:5]
dt[ok]

any2) 1 文字とスペースを節約して書くこともできます。

ok <- dt[, apply(.SD != 0, 1, any), .SDcols = 2:5]
dt[ok]

3) 少数の列の場合、これはさらに短くなります。

dt[ apply(cbind(b, c, d, e) != 0, 1, any) ]

4）また、少数の列の場合、これはさらに短く、より単純です

dt[ b != 0 | c != 0 | d != 0 | e != 0 ]
于 2013-05-20T12:29:27.300 に答える
1

これは 2 段階の解決策です。

dt[
    !dt[,
        .I[all(sapply(.SD,function(x)x=="0"))]
    ,by=1:nrow(dt),.SDcols=letters[2:5]]$V1
]

降伏

    a                  b                  c                  d                  e key
1: 10  0.605887455840394 -0.919322002474128 -0.750531994502331  0.298723699267293   A
2: 20  0.709466017509524  0.630098551068391   1.81731204370422 -0.886357521243213   B
3: 10  0.585528817843856  -1.81795596770373 -0.116247806352002  0.816899839520583   C
4: 25 -0.109303314681054 -0.276184105225216  0.370627864257954 -0.331577589942552   C
5: 10 -0.453497173462763 -0.284159743943371  0.520216457554957   1.12071265166956   C

内側の部分は、条件を満たす行インデックス ".I" を選択します。外側のブラケットは、not "!" を使用してこれらの行を除外することにより、"dt" をサブセット化します。オペレーター。

于 2013-05-20T06:23:51.427 に答える