如何在R语言中基于英国邮政编码模板生成随机邮编

嘿，我明白你想用stringi生成符合模板的随机英国邮编却遇到了麻烦，别担心，我给你两个靠谱的解决方案，一个基于stringi（正好贴合你的需求），另一个用基础R也能搞定！

方法1：使用stringi包实现（推荐） #

stringi的stri_rand_strings函数可以直接生成指定模式的随机字符，配合正则替换就能轻松替换模板里的占位符：

library(stringi)

generate_postcode <- function(template) {
  # 把每个"A"替换为随机大写字母
  template <- stri_replace_all_regex(
    str = template,
    pattern = "A",
    replacement = function(x) stri_rand_strings(1, 1, pattern = "[A-Z]")
  )
  # 把每个"9"替换为随机数字
  template <- stri_replace_all_regex(
    str = template,
    pattern = "9",
    replacement = function(x) stri_rand_strings(1, 1, pattern = "[0-9]")
  )
  return(template)
}

测试示例 #

# 测试"A9 9AA"模板
generate_postcode("A9 9AA")
# 输出示例："K3 7TX"

# 测试"AA9A 9AA"模板
generate_postcode("AA9A 9AA")
# 输出示例："EH1Z 2WQ"

方法2：基础R实现（无需额外包） #

如果你不想依赖第三方包，用基础R的字符串拆分+循环替换也能实现：

generate_postcode_base <- function(template) {
  # 将模板拆分为单个字符
  char_list <- strsplit(template, "")[[1]]
  
  # 逐个替换占位符
  processed_chars <- sapply(char_list, function(char) {
    if (char == "A") {
      sample(LETTERS, 1)  # 随机大写字母
    } else if (char == "9") {
      as.character(sample(0:9, 1))  # 随机数字
    } else {
      char  # 保留原字符（比如空格）
    }
  })
  
  # 拼接回完整字符串
  paste(processed_chars, collapse = "")
}

测试示例 #

generate_postcode_base("A9 9AA")
# 输出示例："M7 2PD"

generate_postcode_base("AA9A 9AA")
# 输出示例："WC2X 8SR"

批量生成小贴士 #

如果需要一次性生成多个随机邮编，用replicate()函数就行：

# 生成5个符合"A9 9AA"模板的邮编
replicate(5, generate_postcode("A9 9AA"))

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