如何替换数字前三位？向量中指定数字批量替换的实现方法

1. 单个数字的前三位替换 #

处理单个数字的核心思路是先转成字符串操作——毕竟字符串的前缀替换比纯数字运算直观太多。举个具体例子：

假设你要把421455的前三位421换成424，用Python可以这么写：

original_num = 421455
new_prefix = "424"
# 转字符串后截取第4位及以后的部分，和新前缀拼接再转回整数
new_num = int(new_prefix + str(original_num)[3:])
print(new_num)  # 输出: 424455

如果用R语言，逻辑完全一致：

original_num <- 421455
new_prefix <- "424"
new_num <- as.integer(paste0(new_prefix, substr(as.character(original_num), 4, nchar(as.character(original_num)))))
print(new_num)  # 输出: 424455

2. 向量中批量替换特定前缀的数字 #

批量处理就是把单个数字的操作循环应用到每个元素上，这里给你两种常用语言的实现：

Python 实现 #

如果是普通列表，用列表推导式快速搞定：

original_nums = [421455, 421855, 421766]
new_prefix = "424"
new_nums = [int(new_prefix + str(num)[3:]) for num in original_nums]
print(new_nums)  # 输出: [424455, 424855, 424766]

要是用pandas处理Series，正则替换会更简洁：

import pandas as pd
num_series = pd.Series([421455, 421855, 421766])
new_series = num_series.astype(str).str.replace(r'^421', '424').astype(int)
print(new_series)

R 实现 #

用基础包的向量化操作就能完成：

original_nums <- c(421455, 421855, 421766)
new_prefix <- "424"
new_nums <- as.integer(paste0(new_prefix, substr(as.character(original_nums), 4, nchar(as.character(original_nums)))))
print(new_nums)  # 输出: 424455 424855 424766

习惯用stringr包的话，正则替换更灵活：

library(stringr)
new_nums <- as.integer(str_replace(as.character(original_nums), "^421", "424"))

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