如何在R中实现SAS代码中的数组循环与变量转换逻辑？

SAS原处理逻辑 #

以下是你提供的SAS数据处理代码：

data result; set check;
format Ti_Cycles_Delq_1 - Ti_Cycles_Delq_12 $1.;
array xxx{12} Ti_Cycles_Delq_1 - Ti_Cycles_Delq_12;
Do j=1 To 12;
a = substrn(delq12,j,1);
b = PUT(a,2.);
if a in ('Z' 'B' '1' '0') then xxx(j) = 0;
else xxx(j) = b-1;
end;
run;

核心逻辑：

• 从delq12字符串的第1到12位依次截取单个字符
• 若字符是Z/B/1/0，对应新变量赋值为0
• 若为其他数字字符（如2、3、4），转换为数值后减1，作为对应变量的值
• 最终生成12个新变量Ti_Cycles_Delq_1到Ti_Cycles_Delq_12

R实现代码 #

首先是你的示例数据：

delq12 <- c('ZZZZZZBZZZZZ','Z1ZZZZZZZZZZ','ZZ2ZZZZ22ZZZ','ZZZ3ZZ4ZZZZ0')

以下是对应逻辑的R实现：

# 用基础R+tidyverse工具实现，也可以只用基础R
library(dplyr)
library(tidyr)

# 定义处理单条delq12字符串的函数
process_single_delq <- function(delq_str) {
  # 拆分字符串为单个字符，取前12位
  char_list <- strsplit(delq_str, "")[[1]][1:12]
  # 按规则转换每个字符
  processed_vals <- sapply(char_list, function(c) {
    if (c %in% c('Z', 'B', '1', '0')) {
      0
    } else {
      as.numeric(c) - 1
    }
  })
  # 给结果命名为目标变量名
  names(processed_vals) <- paste0("Ti_Cycles_Delq_", 1:12)
  return(processed_vals)
}

# 批量处理所有字符串并转换为数据框
result <- as.data.frame(t(sapply(delq12, process_single_delq)))

# 查看处理结果
print(result)

结果匹配说明 #

运行代码后得到的result数据框完全对应SAS逻辑：

• 第一行（ZZZZZZBZZZZZ）：所有位置均为0（Z、B匹配规则）
• 第二行（Z1ZZZZZZZZZZ）：第2位因是1赋值为0，其余Z也为0
• 第三行（ZZ2ZZZZ22ZZZ）：第3、8、9位是2，转换为1，其余为0
• 第四行（ZZZ3ZZ4ZZZZ0）：第4位3转换为2，第7位4转换为3，第12位0赋值为0，其余为0

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