如何用awk批量替换矩阵多列中大于1的数值并保留表头？

针对你的需求——把矩阵中30个数值列里大于1的数替换为1，同时保留表头不变，我给你一个精准的awk命令方案：

NR==1 {print; next} 
{for(i=2; i<=31; i++) if($i>1) $i=1} 1

命令细节解释： #

• NR==1 {print; next}：NR是awk的内置变量，代表当前处理的行号。这行逻辑专门处理第一行表头：直接打印整行，然后用next跳过后续处理步骤，确保表头的文本完全不会被修改。
• {for(i=2; i<=31; i++) if($i>1) $i=1}：从第二行（数据行）开始，循环遍历第2到第31列（正好对应你提到的30个Sample列）。对每一列做判断：如果数值大于1，就把它替换为1；0或者≤1的数值会保持原样。
• 最后的1：这是awk里的经典简写，等价于print $0，作用是打印处理完成后的整行内容。

示例效果验证： #

输入数据：

Species Sample_1 Sample_2 Sample_3
Species_1 15 4 0
Species_2 10 3 2

执行命令后输出：

Species Sample_1 Sample_2 Sample_3
Species_1 1 1 0
Species_2 1 1 1

灵活扩展方案： #

如果你的数值列数量不固定（不是刚好30列），而是从第2列一直延伸到行尾，可以把循环条件改成i<=NF（NF是awk内置变量，表示当前行的总列数），这样不管多少列都能适配：

NR==1 {print; next} 
{for(i=2; i<=NF; i++) if($i>1) $i=1} 1

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