Поиск индекса для 2-го минимального значения во фрейме данных

Ты можешь сделать :

sapply(df1, function(x) which.max(x == sort(unique(x))[2]))

#x y z 
#2 2 3 

Или с dplyr :

library(dplyr)
df1 %>%
  summarise(across(.fns = ~which.max(. == sort(unique(.))[2])))

#      x     y     z
#  <int> <int> <int>
#1     2     2     3

Вы можете попробовать что-то вроде:

sort(unique(unlist(df1)))[2]

Еще одна базовая версия R с использованием rank

> sapply(df1, function(x) which(rank(unique(x)) == 2))
x y z
2 2 3

Обновленный ответ

Вы можете написать функцию, подобную следующей, используя factor:

which_min <- function(x, pos) {
  sapply(x, function(y) {
    which(as.numeric(factor(y, sort(unique(y)))) == pos)[1]
  })
}

which_min(df1, 2)
# x y z 
# 2 2 3 

Тестирование с другими данными:

df2 <- df1
df2$new <- c(1, 1, 1, 2, 3)
which_min(df2, 2)
#   x   y   z new 
#   2   2   3   4 

Оригинальный ответ

Вместо sort вы можете использовать order:

sapply(df1, function(x) order(unique(x))[2])
# x y z 
# 2 2 3

Или вы можете использовать аргумент index.return в sort:

sapply(df1, function(x) sort(unique(x), index.return = TRUE)$ix[2])
# x y z 
# 2 2 3