找出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