如何在R的data.table物件中建立每一行第一個非零值的一列？

為了在R的data.table物件中建立每一行第一個非零值的一列，我們可以按照以下步驟進行：

  • 首先，建立一個包含一些零值的data.table物件。

  • 然後，使用apply函式和自定義函式來查詢data.table物件每一行的第一個非零值。

示例

建立data.table物件

讓我們建立一個如下所示的data.table物件：

library(data.table)
v1<-sample(0:5,25,replace=TRUE)
v2<-sample(0:5,25,replace=TRUE)
v3<-sample(0:5,25,replace=TRUE)
DT<-data.table(v1,v2,v3)
DT

輸出

執行上述指令碼後，將生成以下輸出（由於隨機化，此輸出可能因您的系統而異）：

   v1 v2 v3
1:  0  2 4
2:  0  4 1
3:  4  1 2
4:  2  5 0
5:  5  3 4
6:  1  1 5
7:  5  3 0
8:  5  0 1
9:  5  3 4
10: 0  3 2
11: 5  3 2
12: 5  4 4
13: 4  1 2
14: 5  1 2
15: 5  1 5
16: 4  3 1
17: 2  1 5
18: 2  4 2
19: 4  0 0
20: 3  1 2
21: 0  4 5
22: 5  0 0
23: 5  2 5
24: 5  1 1
25: 1  5 5
   v1 v2 v3

查詢data.table物件每一行的第一個非零值

使用apply函式和自定義函式來查詢data.table物件DT每一行的第一個非零值，如下所示：

library(data.table)
v1<-sample(0:5,25,replace=TRUE)
v2<-sample(0:5,25,replace=TRUE)
v3<-sample(0:5,25,replace=TRUE)
DT<-data.table(v1,v2,v3)
DT$First_Non_zero<-apply(DT,1, function(x) x[x !=0][1])
DT

輸出

   v1 v2 v3 First_Non_zero
1:  0 2  4  2
2:  0 4  1  4
3:  4 1  2  4
4:  2 5  0  2
5:  5 3  4  5
6:  1 1  5  1
7:  5 3  0  5
8:  5 0  1  5
9:  5 3  4  5
10: 0 3  2  3
11: 5 3  2  5
12: 5 4  4  5
13: 4 1  2  4
14: 5 1  2  5
15: 5 1  5  5
16: 4 3  1  4
17: 2 1  5  2
18: 2 4  2  2
19: 4 0  0  4
20: 3 1  2  3
21: 0 4  5  4
22: 5 0  0  5
23: 5 2  5  5
24: 5 1   1 5
25: 1 5  5  1
  v1 v2 v3 First_Non_zero

更新於：2021年11月12日

285 次瀏覽

啟動您的職業生涯

透過完成課程獲得認證

開始
廣告
© . All rights reserved.