Найти минимум списка списков в 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, где расстояние минимально