我有一个data.table
,需要在其上计算一些新值,并选择具有min
值的行。
tb <- data.table(g_id=c(1, 1, 1, 2, 2, 2, 3),
item_no=c(24,25,26,27,28,29,30),
time_no=c(100, 110, 120, 130, 140, 160, 160),
key="g_id")
# g_id item_no time_no
# 1: 1 24 100
# 2: 1 25 110
# 3: 1 26 120
# 4: 2 27 130
# 5: 2 28 140
# 6: 2 29 160
# 7: 3 30 160
ts <- 118
gId <- 2
tb[.(gId), list(item_no, tdiff={z=abs(time_no - ts)})]
# g_id item_no tdiff
# 1: 2 27 12
# 2: 2 28 22
# 3: 2 29 42
现在我需要获取具有最小 tdiff
(实际上只需要获取该行的item_no
)的行。
# g_id item_no tdiff
# 1: 2 27 12
我能否使用 tb
在一次操作中完成此操作?这样做的最快方法是什么(因为我需要对大约500,000行执行此操作)?
tb[.(gId), list(item_no, tdiff={z=abs(time_no - ts)})][,item_no[which.min(tdiff)],by=g_id]
。 - Gary Weissman[last(order(tdiff))][[2]]
。 - Katerina