Мы можем использовать match
для получения индекса, выполняя цикл по list
и сопоставляя его со столбцом 'value' в 'df'
lapply(y, function(x) match(x, df$value))
#[[1]]
#[1] 1 3 4 2
#[[2]]
#[1] 3 4 1 2
Или без анонимной функции
lapply(y, match, df$value)
данные
df <- data.frame(value = c(5, 25, 6, 70))
y <- list(c(5, 6, 70, 25), c(6, 70, 5, 25))