使用循环执行多组VarToCases命令的SPSS数据转换问题

现有数据集包含40组变量，每组32个变量，仅索引不同：第一组为A1_Themes1、A1_Themes2……，第二组为A2_Themes1、A2_Themes2……，以此类推至A40_Themes1、A40_Themes2……；同时存在Course1至Course40索引变量，对应每组变量的来源（如A1组来自Course1）。

期望最终得到32个Themes类变量 + 1个课程编号变量、共40条观测的数据集，要求使用VarToCases命令，但不想编写32条/Make语句。尝试用Do Repeat循环执行VarToCases失败后，编写了如下DEFINE程序，虽能运行但生成的新变量无值，且产生超3500万条观测，寻求解决方法。

运行代码 #

define doLongVTC (vlist = !CMDEND)

!DO !vname !IN (!vlist)
     varstocases
          /make !vname  from  !DO !i=1 !to 40 !CONCAT("A", !I, "_",  !vname)  !DOEND
    /INDEX = !CONCAT("i_", !vname) (!vname)
        /NULL = KEEP.                             
!DOEND 
     
        
!enddefine.

* SET MPRINT = on.

doLongVTC vlist =Themes_1 Themes_2 Themes_3 Themes_4 Themes_5 Themes_6     Themes_7 ThemesComm Content_1 Content_2 Content_3 Content_4 ContentComm       Inquiry_CritThinking_1 
Inquiry_CritThinking_2 Inquiry_CritThinking_3 Inquiry_CritThinking_4 SciCritThinkingComm Values_1 Values_2 Values_3 ValuesComm Comm_Literacy_Tech_1 Comm_Literacy_Tech_2 
Comm_Literacy_Tech_3 Comm_Literacy_Tech_4 CommLitTechComm Pers_ProfDevelopmnt_1 Pers_ProfDevelopmnt_2 Pers_ProfDevelopmnt_3   Pers_ProfDevelopmnt_4 Pers_ProfDevelopmnt_5
Pers_ProfDevelopmnt_6 PersProfDevComm.

问题根源 #

当前DEFINE程序在循环里多次执行VarToCases，每次执行都会把数据集拉长一次——第一次执行将1条观测变为40条，第二次执行又将40条变为40×40=1600条，循环32次后就会得到40^32条观测，这就是3500万+条的原因；同时每次生成的新变量只对应当前循环的变量，其他变量会缺失，导致最终新变量无值。

正确实现方式 #

不需要循环执行VarToCases，而是一次性生成所有需要的变量，只调用一次VarToCases即可。可以用DEFINE宏生成完整的/Make语句列表，然后执行单次VarToCases：

define doLongVTC (vlist = !CMDEND)
    !LET !makeCmds = !NULL
    !DO !vname !IN (!vlist)
        !LET !makeCmds = !CONCAT(!makeCmds, "/make ", !vname, " from ")
        !DO !i=1 !to 40
            !LET !makeCmds = !CONCAT(!makeCmds, "A", !i, "_", !vname, " ")
        !DOEND
    !DOEND
    varstocases
        !makeCmds
        /INDEX = CourseID (A1-A40)
        /NULL = KEEP.
!enddefine.

* 调用宏生成并执行命令.
doLongVTC vlist =Themes_1 Themes_2 Themes_3 Themes_4 Themes_5 Themes_6 Themes_7 ThemesComm Content_1 Content_2 Content_3 Content_4 ContentComm Inquiry_CritThinking_1 
Inquiry_CritThinking_2 Inquiry_CritThinking_3 Inquiry_CritThinking_4 SciCritThinkingComm Values_1 Values_2 Values_3 ValuesComm Comm_Literacy_Tech_1 Comm_Literacy_Tech_2 
Comm_Literacy_Tech_3 Comm_Literacy_Tech_4 CommLitTechComm Pers_ProfDevelopmnt_1 Pers_ProfDevelopmnt_2 Pers_ProfDevelopmnt_3 Pers_ProfDevelopmnt_4 Pers_ProfDevelopmnt_5
Pers_ProfDevelopmnt_6 PersProfDevComm.

* 将CourseID映射为实际课程编号.
compute CourseNumber = !eval(!concat("Course", CourseID)).

关键说明 #

1. 单次VarToCases调用：通过宏拼接所有/Make语句，一次性把所有组的变量转换为长格式，避免多次拉长数据集。
2. INDEX参数简化：/INDEX = CourseID (A1-A40)会自动生成1-40的索引，对应每组的来源，后续可直接映射为Course1-Course40的实际值。
3. 避免变量缺失：单次转换会保留所有生成的变量，每条观测对应一个课程的32个Themes类变量值，正好得到40条观测。

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