R语言实现字符语句转字母对应数值及反向还原的函数开发

• 运行时语法错误：R中letters是长度为26的内置字符常量，不是可调用的函数，原代码中vals <- letters(x)的写法会直接触发“找不到对应函数”的报错，根本无法跑通流程。
• 关键信息丢失：字符转整数阶段统一把所有字母转成小写再匹配位置值，完全丢失原始语句的大小写信息，就算反向转换逻辑写对，也只能输出全小写的内容，没法还原成原始格式的句子。
• 逻辑覆盖不全：原代码用cumsum(is.na(vals))拆分单词的逻辑，当NA出现在向量开头、结尾或者连续出现时，会出现分组错位，丢失空格位置；同时没有做输入合法性校验，遇到非英文字符、超出1-26范围的整数值时会直接报错，没有兜底处理。

# 字符转整数：输入单个字符串，输出对应整数值向量（空格位置为NA）
char_to_int <- function(x) {
  if(!is.character(x) | length(x) != 1) stop("输入必须为单个字符型句子")
  split_chars <- strsplit(x, "")[[1]]
  res_vals <- numeric(length(split_chars))
  char_type <- character(length(split_chars)) # 记录每个位置的字符属性
  
  for(i in seq_along(split_chars)) {
    cur_char <- split_chars[i]
    if(cur_char == " ") {
      res_vals[i] <- NA_real_
      char_type[i] <- "space"
    } else if(grepl("[A-Z]", cur_char)) {
      res_vals[i] <- match(tolower(cur_char), letters)
      char_type[i] <- "upper"
    } else if(grepl("[a-z]", cur_char)) {
      res_vals[i] <- match(cur_char, letters)
      char_type[i] <- "lower"
    } else {
      res_vals[i] <- NA_real_
      char_type[i] <- "other"
      warning(paste0("位置", i, "的非英文字符[", cur_char, "]已转换为NA值"))
    }
  }
  # 把字符属性作为向量附属信息存储，不改变整数向量本身的格式
  attr(res_vals, "char_type") <- char_type
  return(res_vals)
}

# 整数反向转字符：接收char_to_int输出的数值向量，还原原始字符串
int_to_char <- function(x) {
  if(!is.numeric(x)) stop("输入必须为char_to_int函数输出的数值向量")
  char_type <- attr(x, "char_type")
  # 兼容无属性的纯整数向量输入
  if(is.null(char_type)) {
    message("未检测到字符属性标记，默认输出全小写字母、NA位置替换为空格")
    char_type <- ifelse(is.na(x), "space", "lower")
  }
  
  res_chars <- character(length(x))
  for(i in seq_along(x)) {
    cur_val <- x[i]
    cur_type <- char_type[i]
    if(cur_type == "space") {
      res_chars[i] <- " "
    } else if(cur_type == "upper" & !is.na(cur_val) & cur_val >= 1 & cur_val <=26) {
      res_chars[i] <- LETTERS[cur_val]
    } else if(cur_type == "lower" & !is.na(cur_val) & cur_val >=1 & cur_val <=26) {
      res_chars[i] <- letters[cur_val]
    } else {
      res_chars[i] <- " "
    }
  }
  return(paste0(res_chars, collapse = ""))
}

# 测试用例
x1 <- "Hello My Friend"
# 正向转整数
int_vec <- char_to_int(x1)
int_vec
# 反向还原字符串
restore_str <- int_to_char(int_vec)
restore_str
# 校验还原结果和原输入是否完全一致
identical(x1, restore_str)

• 严格匹配映射规则：所有英文字母不区分大小写，统一按a=1、b=2...z=26的规则匹配对应整数值，空格位置用NA占位。
• 解决大小写丢失问题：利用R向量支持附加自定义属性的特性，把每个位置的字符类型标记存在整数向量的属性中，既不改变“输出整数值向量”的接口要求，又能为反向转换提供必要的格式信息。
• 全链路容错：对输入的格式、值范围做校验，非法输入会给出明确提示，不会直接抛出无意义的运行错误。

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