R语言基于已有最大标识生成递增aXb格式6位字母数字ID填充空值方法

首先给出你提供的示例数据：

df <- data.frame(
  id = c("a4338b", "a4339b", "a4340b", NA, NA),
  post = c("teacher", "postal worker", "chef", "waitress", "presenter"))

基础R实现方案 #

不需要加载任何第三方包，直接运行以下代码即可得到预期结果：

# 1. 提取现有非空ID的中间数字段，取最大值
exist_nums <- as.integer(substr(df$id[!is.na(df$id)], 2, 5))
max_id_num <- max(exist_nums)

# 2. 统计需要填充的空值数量
na_cnt <- sum(is.na(df$id))

# 3. 生成符合格式的新ID，填充到空值位置
new_ids <- paste0("a", max_id_num + seq_len(na_cnt), "b")
df$id[is.na(df$id)] <- new_ids

运行后查看df的id列，就是你需要的a4338b、a4339b、a4340b、a4341b、a4342b的结果。

dplyr+stringr实现方案 #

如果你的项目已经在用tidyverse生态的包，可以用如下写法：

library(dplyr)
library(stringr)

df <- df %>%
  mutate(
    # 提取ID中间的数字段
    num_part = as.integer(str_sub(id, 2, -2)),
    max_id_num = max(num_part, na.rm = TRUE),
    # 对空值位置按偏移量生成新ID
    id = ifelse(
      is.na(id),
      paste0("a", max_id_num + cumsum(is.na(id)), "b"),
      id
    )
  ) %>%
  # 移除计算过程生成的临时列
  select(-num_part, -max_id_num)

注意事项 #

• 上述代码默认现有ID都符合你描述的「a开头、b结尾、中间4位数字、总长度6位」的规则，若数据可能存在异常ID，可先加校验逻辑过滤异常值再计算最大ID
• 如果当前id列全为空，可手动指定初始数字，比如设置max_id_num = 1000作为起始值即可

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