R语言：实现返回竖线|分隔的两个结果的自定义函数

你可以通过一次定位最小值索引的方式合并两个函数的功能，同时优化掉原代码中容易引发环境冲突的attach()用法，最终返回要求格式的拼接结果：

# 合并后的函数
combined_fun <- function(df) {
  min_pos <- which.min(df$x2)
  min_x2_val <- df$x2[min_pos]
  match_x1_val <- df$x1[min_pos]
  return(paste(min_x2_val, match_x1_val, sep = "|"))
}

测试验证 #

使用你提供的测试数据运行效果如下：

set.seed(1)
x <- data.frame(
  x1 = 1:10,
  x2 = rnorm(10)
)
combined_fun(x)

运行后输出结果为：

-0.8356286|3

内容的提问来源于stack exchange，提问作者Daniel James