如何在R中打开带密码保护的.sav(SPSS)文件？haven包是否支持解锁？

1. haven包不支持密码解密 #

haven依赖的底层readstat库未实现SPSS加密文件的解码功能，官方文档也没有提供密码参数或解密相关接口，所以无法直接用haven::read_sav()读取加密的.sav文件。

2. 兼容haven格式的替代方案 #

以下两种方案可以读取加密文件，且输出的tibble数据框会保留变量的label属性，完全匹配haven::read_sav()的格式，无需修改现有依赖脚本：

方案一：用reticulate调用Python的pyreadstat #

pyreadstat支持带密码读取SPSS文件，且能完整保留元数据，通过reticulate导入R后可轻松转换成haven兼容格式：

1. 先在终端执行命令安装Python的pyreadstat：pip install pyreadstat
2. 在R中执行以下代码：

install.packages(c("reticulate", "haven", "tibble"))
library(reticulate)
library(haven)
library(tibble)

# 导入pyreadstat并读取加密文件
pyreadstat <- import("pyreadstat")
sav_data <- pyreadstat$read_sav("your_file.sav", password = "your_password")

# 转换为tibble并添加haven风格的变量标签
data_df <- as_tibble(sav_data[[1]])
var_labels <- sav_data[[2]]$variable_labels

for (var in names(var_labels)) {
  if (var %in% names(data_df)) {
    attr(data_df[[var]], "label") <- var_labels[[var]]
  }
}

此时data_df的结构、变量标签格式与haven::read_sav()的输出完全一致。

方案二：使用spssreadr包（依赖Java） #

spssreadr调用SPSS的Java API读取加密文件，返回的结果默认就是带变量标签的tibble，直接兼容haven格式：

1. 确保系统安装了Java环境（版本需与包兼容）
2. 在R中执行：

install.packages("spssreadr")
library(spssreadr)

# 直接读取加密文件
data_df <- read_sav_encrypted("your_file.sav", password = "your_password")

这个函数返回的数据集可以直接代入你的现有脚本，无需额外格式转换。

方案选择建议 #

• 如果已经在用reticulate或熟悉Python环境，优先选方案一；
• 若不想配置Python，可尝试方案二，但需确保Java环境正常运行。

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