在 R 中找到最小的列表列表

Question

我有一个列表列表。我想得到最小的distance的order_number。

这是我的清单。

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

最小的distance的order_number是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)]

这个returns距离最小的order_number