在R中读取Spss数据文件

Question

我正在使用Expss pakage。 df<-read_spss("test.SAV")我显示以下内容：

警告消息：在外部:: read.spss（enc2native（file），use.value.labels = FALSE，：Tally.SAV：找到了很长的字符串记录（记录类型7，子类型14），每个都将被导入在连续的单独变量中

它在环境Panel中显示4174个变量。数据文件中的实际变量数约为400。

Answer 1

如注释foreign::read.spss将SPSS长（> 255个字符）字符变量拆分为几列。 如果此类列为空，则可以将其删除而不会出现任何问题。 便利功能：

remove_empty_characters_after_foreign = function(data){
    empty_chars = vapply(data, FUN = function(column) is.character(column) & all(is.na(column)), FUN.VALUE = logical(1))
    additional_chars = grepl("00\\d$", colnames(data), perl = TRUE)
    to_remove = empty_chars & additional_chars
    if(any(to_remove)){
        message(paste0("Removing ", paste(colnames(data)[to_remove], collapse = ", "),"..."))
    }
    data[,!to_remove, drop = FALSE]

}

df = remove_empty_characters_after_foreign(df)