在R中找到最小列表列表

Question

我有一个清单清单。我想用最小的order_number获得distance。

这是我的列表清单。

d <- list( list(distance = 450, order_number = 12), 
list(distance = 930, order_number = 99), 
list(distance = 100, order_number = 34))

order_number最小的distance是34。

这是我到目前为止所拥有的。

sapply(d, function(x) d[which.min(d[[x]]$distance,]$order_number))

出现语法错误。

Answer 1

尝试一下：

df = as.data.frame(do.call(rbind, lapply(d, unlist)))
df$order_number[df$distance==min(df$distance)]

这将返回距离最小的order_number