为避风港导出SPSS的变量标签

Question

我想导出我在R处理的数据集供我的同事在SPSS中使用。当我导出数据集时，我想包含变量标签（即下面的列），我不询问描述变量级别的值标签：

haven中是否有允许我设置此变量标签的选项？

我搜索了文档，发现只有函数来设置值标签。我注意到haven是ReadStat的包装器，似乎支持变量标签。在ReadStat documentation中，变量标签（Citizenship of respondent）可以在下面的块中看到：

{
    "type": "SPSS",
    "variables": [
        {
            "type": "NUMERIC",
            "name": "citizenship",
            "label": "Citizenship of respondent",
            "categories": [
                {
                    "code": 1,
                    "label": "Afghanistan"
                },
...

遗憾的是，我对C++的理解不够复杂，无法理解haven如何在幕后工作，所以任何建议都非常受欢迎。

我 找到了一种解决方法，其中包括使用属性手动设置变量标签。考虑以下示例，使用UK Data Service：

中的教学数据集

# install.packages("tidyverse")
library("tidyverse")

tmp    = tempfile(fileext = ".zip")
tmpdir = tempdir()

download.file(
  "http://ws.ukdataservice.ac.uk/REST/Download/Download/DSO/7912spss_e5b795672124e5b409e4a53c1a06fb9e.zip",
  destfile = tmp
)
unzip(tmp, exdir = tmpdir)

tmpdir = paste0(tmpdir, "/UKDA-7912-spss/spss/spss19/")
file   = paste0(tmpdir, list.files(tmpdir))

dat = haven::read_sav(file)

str(dat)

# Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 22428 obs. of  14 variables:
#  $ CASENEW : atomic  1 2 3 5 5 6 6 7 8 9 ...
#   ..- attr(*, "label")= chr "New random ID number"
#   ..- attr(*, "format.spss")= chr "F8.2"
#   ..- attr(*, "display_width")= int 10
# ...

因此我可以用：

更改变量标签

attr(dat$CASENEW, "label") = "Foo"
attr(dat$CASENEW, "label")
# "Foo"

当我写入新的.sav文件时，确实按照SPSS中的预期打开了。我的问题是，在haven？

中是否存在以原生方式执行此操作

Answer 1

哈德利的回答：

只需设置属性

- Hadley Wickham（@hadleywickham）October 27, 2017

所以你有它：规范的haven答案就是设置属性。