如何将SPSS语法编写的小型数据集转换为R可用的CSV文件

针对给出的SPSS小型数据集，可根据自身工具条件选择以下任意一种方案，所有方案转换结果均可和提供的标准数据集结构完全对齐：

• 手动生成（最适配当前小样本场景，无工具依赖）
  对照已给出的SPSS标准数据集内容，第一行写入表头gpid,anx,socskls,assert，每行观测的4个数值用英文逗号分隔，逐行写入后直接保存为.csv后缀文件即可。示例内容片段：

  gpid,anx,socskls,assert
  1,5,3,3
  1,5,4,3
  1,4,5,4
  

  该方法转换后可直接和标准表逐行校验，无格式误差。
• SPSS端导出（有SPSS授权时使用）
  将提供的SPSS原始语法粘贴到SPSS语法编辑器，运行生成目标数据集后，通过「文件-导出数据」功能，选择CSV格式、UTF-8编码导出即可，可避免后续R读取出现乱码。
• R端直接生成（无需SPSS软件，全流程在R中完成）
  直接读取SPSS语法块中BEGIN DATA与END DATA之间的数值内容，按字段结构拆分生成数据框后直接导出CSV，无需额外安装包：

  # 提取SPSS代码块内的原始数值
  raw_values <- scan(text = "1 5 3 3     1 5 4 3     1 4 5 4     1 4 5 4
  1 3 5 5     1 4 5 4     1 4 5 5     1 4 4 4
  1 5 4 3     1 5 4 3     1 4 4 4
  2 6 2 1     2 6 2 2     2 5 2 3     2 6 2 2
  2 4 4 4     2 7 1 1     2 5 4 3     2 5 2 3
  2 5 3 3     2 5 4 3     2 6 2 3
  3 4 4 4     3 4 3 3     3 4 4 4     3 4 5 5
  3 4 5 5     3 4 4 4     3 4 5 4     3 4 6 5
  3 4 4 4     3 5 3 3     3 4 4 4")
  # 按4个字段拆分生成数据框
  dataset <- as.data.frame(matrix(raw_values, ncol = 4, byrow = TRUE))
  colnames(dataset) <- c("gpid", "anx", "socskls", "assert")
  # 导出为可直接在R中读取的CSV
  write.csv(dataset, "target_dataset.csv", row.names = FALSE, fileEncoding = "UTF-8")
  

校验提示：导出完成后可在R中通过nrow(dataset)确认总行数为33、table(dataset$gpid)确认分组观测数为每组11条，即可验证转换准确性。

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