如何从因子中提取代码

Question

首先，如果我的问题不是很清楚，我想提前道歉。我对 R 完全陌生，我的术语不会那么好。

我们从外部公司获得一个包含调查数据的 SPSS 文件。我们有一个 R 脚本来提取数据并将其写入 CSV 文件。这很好用。

脚本的第二部分为所有可能的问题构建了一个 INI 样式的文件。例如，对于 AGE，我们会有类似

[ AGE ]
1 = Under 13
2 = 13 - 15
3 = 15 - 25
4 = 25+

CSV 文件的每一行将有 1、2、3 或 4 之一。直到最近，所有可能的答案都从 1 开始编号，但现在其中一些从 0 开始。因此我们希望有类似的东西：

[ AGE ]
0 = Under 13
1 = 13 - 15
2 = 15 - 25
3 = 25+

以下是我们当前使用的 R 代码。我知道哪里出了问题，但我不知道如何改正。

data<-read.spss(inputFile, to.data.frame=TRUE);
fileOut<- file(valuesExportFile, "w");
for (name in names(data)) {
  cat("[", name,"]\n", file=fileOut);
  variableValues<-levels(data[[name]]);
  numberOfValues<-nlevels(data[[name]]);
  if (numberOfValues > 0) {
     for (i in 1:numberOfValues) {
         cat(i, '= "', variableValues[i], '"', "\n", file=fileOut);
     }
  }
};
close(fileOut);

我花了一天半的时间在谷歌上搜索并尝试了各种方法。我确实找到了一个 perl 脚本 spssread.pl，它可以根据需要提取数据，但由于某种原因，所有标签名称都是大写的，这是不可接受的，因为它们区分大小写。我会继续研究这个脚本，但与此同时，我想看看是否有使用 R 的解决方案，因为这是我们已经使用的，并且将所有内容都放在一个脚本中会很好。

那么，有什么建议吗？

Answer 1

感谢 Brian Diggs，我能够探索另一种方式并找到了解决方案，虽然不是一个完美的解决方案。

我的解决方案是使用use.value.labels=FALSE 提取数据，然后取消分类变量并使用value.labels 属性。我认为显示代码比我试图解释它更清楚。

data<-read.spss(inputFile, to.data.frame=TRUE, use.value.labels=FALSE);
fileOut<- file(valuesExportFile, "w");
for (name in names(data)) {
    cat("[", name,"]\n", file=fileOut);
    variables<-attr(unclass(data[[name]]), "value.labels");
    for (label in names(variables)) {
        cat(variables[[label]], '= "', label, '"', "\n", file=fileOut);
    }
};
close(fileOut);

结果

[ AGE ]
8 = " 65+ "
7 = " 55 to 64 "
6 = " 45 to 54 "
5 = " 35 to 44 "
4 = " 25 to 34 "
3 = " 21 to 24 "
2 = " 16 to 20 "
1 = " 13 to 15 "
0 = " Under 13 "

虽然可行，但并不理想。有谁知道我如何对它们进行排序以便拥有

[ AGE ]
0 = " Under 13 "
1 = " 13 to 15 "
2 = " 16 to 20 "
3 = " 21 to 24 "
4 = " 25 to 34 "
5 = " 35 to 44 "
6 = " 45 to 54 "
7 = " 55 to 64 "
8 = " 65+ "

编辑：2012 年 4 月 5 日

在 Brian Diggs 的更多帮助（参见 cmets）之后，最终的解决方案是

data<-read.spss(inputFile, to.data.frame=TRUE, use.value.labels=FALSE);
fileOut<- file(valuesExportFile, "w");
for (name in names(data)) {
    cat("[", name,"]\n", file=fileOut);
    variables<-attr(unclass(data[[name]]), "value.labels");
    variables<-variables[order(as.numeric(variables))];
    for (label in names(variables)) {
        cat(variables[[label]], '= "', label, '"', "\n", file=fileOut);
    }
};
close(fileOut);