R语言如何对指定列Col1至Col4的所有数值统一偏移1单位

以下提供3种不同场景下的可落地实现方案，都可以100%匹配你给出的结果预期：

1. Python Pandas 实现 #

适合需要后续对数据做进一步分析的场景：

import pandas as pd

# 读取数据集，sep参数适配多空格分隔的文本格式
df = pd.read_csv("your_data.txt", sep="\s+")

# 选中目标列统一执行减1操作
target_cols = ["Col1", "Col2", "Col3", "Col4"]
df[target_cols] = df[target_cols] - 1

# 打印验证结果，需要保存的话取消注释下一行
print(df.to_string(index=False))
# df.to_csv("processed_data.txt", sep="\t", index=False)

2. R 语言实现 #

# 读取数据集
df <- read.table("your_data.txt", header = TRUE)

# 目标列减1
target_cols <- c("Col1", "Col2", "Col3", "Col4")
df[target_cols] <- df[target_cols] - 1

# 输出结果，需要保存的话取消注释下一行
print(df)
# write.table(df, "processed_data.txt", sep = "\t", row.names = FALSE)

3. Shell awk 一行命令实现 #

适合不需要编程环境的快速处理场景：

awk 'NR==1{print; next} {print $1, $2-1, $3-1, $4-1, $5-1}' your_data.txt

逻辑说明：NR==1匹配表头行直接输出，后续行保留第一列ID，第2到5列（对应Col1到Col4）各减1后输出。

结果准确性验证方法 #

你可以通过总和校验快速确认结果完全正确：
原始样例中4个目标列的总和为90，共9行每行4个值各减1，总偏移量为9*4=36，处理后4列总和应为54，用你选择的工具计算处理后目标列总和匹配即可100%确认结果无误。

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