如何将电话号码字符串中的空格替换为0，补全6位后缀？

原代码存在的问题 #

• 错误引用不存在的needs_replacement列，逻辑起点错误
• R语言中正则表达式的空格匹配符\s需要写成\\s（双反斜杠转义），否则会被解析为无效特殊字符
• 替换逻辑有误：直接将空格替换为全0会覆盖原有有效数字，正确逻辑应为给不足6位的后缀补0

正确实现方案 #

方案1：拆分字段处理（逻辑清晰易维护）

library(tidyverse)

fixed_numbers <- phone_numbers_df %>%
  # 拆分原电话号码为前缀和后缀，自动去除中间多余空格
  separate(phone_number, into = c("temp_prefix", "temp_suffix"), sep = "\\s+", remove = FALSE) %>%
  # 给后缀补0，确保长度为6位，不足的在左侧补0
  mutate(temp_suffix = str_pad(temp_suffix, width = 6, side = "left", pad = "0")) %>%
  # 重新组合成标准格式的电话号码
  mutate(fixed_phone_number = str_c(temp_prefix, temp_suffix, sep = " ")) %>%
  # 删除临时中间列（可选）
  select(-temp_prefix, -temp_suffix)

# 查看处理结果
print(fixed_numbers)

方案2：正则+自定义函数一步到位

library(tidyverse)

fixed_numbers <- phone_numbers_df %>%
  mutate(fixed_phone_number = str_replace(phone_number,
                                          # 匹配"数字+空格+数字"的结构
                                          "(\\d+)\\s+(\\d+)",
                                          function(match) {
                                            # 拆分匹配到的内容为前缀和后缀
                                            parts <- str_split(match, "\\s+")[[1]]
                                            # 后缀补0后合并
                                            str_c(parts[1], str_pad(parts[2], 6, "left", "0"), sep = " ")
                                          }))

# 查看处理结果
print(fixed_numbers)

两种方案最终都会生成fixed_phone_number列，该列的后缀均为6位数字，同时保留原前缀和正确的空格分隔。

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