R语言：如何为每行绝对值最大值对应的列名在值为负时添加负号

# 预计算行索引、列索引，避免重复运算
row_seq <- seq_len(nrow(Year))
max_col_pos <- max.col(abs(Year), ties.method = "first")

# 提取每行匹配列对应的原始数值
matched_val <- Year[cbind(row_seq, max_col_pos)]

# 生成带符号的列名存入新列
Year$MAX <- ifelse(
  matched_val < 0,
  paste0("-", names(Year)[max_col_pos]),
  names(Year)[max_col_pos]
)

逻辑说明 #

• 完全兼容你已编写的names(Year)[max.col(abs(Year))]核心匹配规则，没有改动原有计算逻辑
• 通过矩阵交叉索引（行号+列号）精准提取每一行匹配位置的原始值，全程向量化运算，无循环，处理大规模数据也能保持高效
• 正负判断逻辑直接嵌套在字符串拼接步骤：值为负时前置负号，为正时直接返回原列名

示例数据运行结果 #

基于你提供的测试数据，运行后MAX列的实际取值为：

• 第1行：-Year_PC3（匹配列原始值为-0.83007229，是该行绝对值最大的负数）
• 第2行：-Year_PC3（匹配列原始值为-0.71032944，是该行绝对值最大的负数）
• 第3行：-Year_PC3（匹配列原始值为-0.54154965，是该行绝对值最大的负数）
• 第4行：Year_PC4（匹配列原始值为0.41736156，是该行绝对值最大的正数）
• 第5行：Year_PC4（匹配列原始值为0.45505958，是该行绝对值最大的正数）
• 第6行：Year_PC3（匹配列原始值为0.53136727，是该行绝对值最大的正数）
• 第7行：Year_PC4（匹配列原始值为0.52572592，是该行绝对值最大的正数）
• 第8行：Year_PC1（匹配列原始值为0.57135167，是该行绝对值最大的正数）

常见踩坑提示 #

• max.col默认的重复值匹配规则是"random"，如果数据中存在多个绝对值相等的最大值，会随机选列导致每次运行结果不一致，建议根据需求修改ties.method参数为"first"或"last"固定输出结果
• 上述代码仅适配纯数值型数据框，如果数据框包含非数值列，需要先把非数值列从运算范围中排除，避免abs()计算报错

内容的提问来源于stack exchange，提问作者Mr.Spock