在函数中使用dplyr slice_min获取与列最小值关联的行

slice_min(.data, ..., n = 1, with_ties = FALSE)

library(dplyr)

get_min_row <- function(data, column) {
  min_row <- data %>% slice_min({{ column }})
  return(min_row)
}

# 示例数据框
data <- data.frame(
  name = c("Alice", "Bob", "Charlie", "David"),
  age = c(25, 30, 20, 35),
  salary = c(50000, 60000, 40000, 70000)
)

# 调用函数获取与列最小值关联的行
min_age_row <- get_min_row(data, age)
min_salary_row <- get_min_row(data, salary)

# 输出结果
print(min_age_row)
print(min_salary_row)

    name age salary
1 Charlie  20  40000