SAS初学者求助：筛选VIT_A≠0、VIT_C≠0数据的逻辑

数据老陈

2026-5-26

嘿，作为SAS新手碰到这种数据整理需求太正常啦，我给你拆解下具体的实现逻辑，分几步就能搞定：

核心实现逻辑拆解

1. 先把数据正确读入SAS

首先得把你手里的两行数据转换成SAS能识别的数据集。看起来每行第一个是维生素类型（字符型），后面跟着一串数值，所以我们可以用INPUT语句定义变量，把数据读进去：

data vit_raw;
  input vit_type $ val1-val7; /* val1到val7对应后面的7个数值 */
  datalines;
VIT_A 12 23 22 0 32 0 11
VIT_C 10 9 0 21 0 26 76
;
run;

2. 用数组批量处理非零值

这是最关键的一步！SAS里的数组可以帮我们批量遍历所有数值列，筛选出非零值再重新拼接成你要的格式：

先定义一个数组，把所有数值列（val1到val7）装进去
初始化一个字符变量，先把维生素类型放进去
循环遍历数组里的每个数值，只要不等于0，就把它拼到前面的字符变量里
最后删掉没用的中间变量，输出结果

具体代码如下：

data vit_result;
  set vit_raw;
  array vals[*] val1-val7; /* 定义数组存放所有数值列 */
  length final_str $ 60; /* 定义结果变量的长度，按需调整 */
  
  final_str = vit_type; /* 先把维生素类型作为开头 */
  do i = 1 to dim(vals); /* 遍历数组里的每个元素 */
    if vals[i] ne 0 then do;
      final_str = catx(' ', final_str, vals[i]); /* 用空格拼接非零值 */
    end;
  end;
  
  drop i val1-val7; /* 删除不需要的中间变量 */
run;