将5位邮政编码转换为R中的3位邮政编码

# 定义一个函数，将5位邮政编码转换为3位邮政编码
convert_postal_code <- function(postal_code) {
  # 检查输入的邮政编码是否为5位
  if (nchar(postal_code) != 5) {
    stop("Invalid postal code. Please enter a 5-digit postal code.")
  }
  
  # 提取前3位邮政编码
  converted_code <- substr(postal_code, 1, 3)
  
  return(converted_code)
}

# 示例使用
postal_code <- "12345"
converted_code <- convert_postal_code(postal_code)
print(converted_code)