R语言逐行判定最小值所属A/B组生成loser列的逻辑校验

你的实现逻辑完全正确，运行结果和预期需求完全匹配。

• 你的数据集列顺序固定：第1列为id，后续列依次按A1、B1、A2、B2、A3、B3、A4、B4排列，即A类变量全部位于偶数列位置（第2、4、6、8列），B类变量全部位于奇数列位置（第3、5、7、9列），和你设定的「最小值列序号为奇数标记Player B、偶数标记Player A」的判断规则完全契合。
• 逐行校验结果完全符合预期：
  • 第1行最小值为B4（-5.736），对应列号9（奇数），标记Player B
  • 第2行最小值为A4（-0.947），对应列号8（偶数），标记Player A
  • 第3行最小值为A4（-22.202），对应列号8（偶数），标记Player A
  • 第4行A4、B4为缺失值，which.min自动忽略缺失值定位到最小值B3（-3.401），对应列号7（奇数），标记Player B

你代码中额外生成的中间列l如果没有后续使用需求，可以不用写入数据框，直接简化代码为：

m$loser <- ifelse(apply(m, 1, which.min) %% 2 == 0, "Player A", "Player B")

运行结果和你写的版本完全一致，还能避免数据框里多出无用列。

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