在R中使用SPSS创建数据表

Question

使用expss包，我通过读取R中的SPSS文件来创建交叉表。这实际上可以很好地工作，但是加载过程需要很多时间。 我有一个文件夹，其中包含各种SPSS文件（通常只有3个文件），并且通过R脚本，我正在这三个文件中获取最后一个修改的文件。

setwd('/file/path/for/this/file/SPSS')

library(expss)

expss_output_viewer()

#get all .sav files
all_sav <- list.files(pattern ='\\.sav$')
#use file.info to get the index of the file most recently modified
pass<-all_sav[with(file.info(all_sav), which.max(mtime))]


mydata = read_spss(pass,reencode = TRUE)  # read SPSS file  mydata 
w <- data.frame(mydata)
args <- commandArgs(TRUE)

一切都很完美，并且绝对可以正常工作，但是加载大型文件（例如112MB，48MB）通常花费太多时间，这并不好。

有没有一种方法可以使我更加省时，并且花费更少的时间来创建表。 下拉列表是使用PHP创建的。

我已经搜索了此文件，并找到了另一个名为“ haven”的库，但是我不确定这是否也可以给我带来意义。 谁能帮我这个？ 我真的很感激。 提前致谢。

Answer 1

如expss插图（ https://cran.r-project.org/web/packages/expss/vignettes/labels-support.html ）所述，您可以按以下方式使用：

# we need to load packages strictly in this order to avoid conflicts
library(haven)
library(expss)
spss_data = haven::read_spss("spss_file.sav")
# add missing 'labelled' class
spss_data = add_labelled_class(spss_data)