R通过使用列索引从避风港标记的数据框中提取attributes(x)$label

Question

我想提取 $label来自标记为避风港的数据集的属性，并且在使用列索引而不是列名时总是失败。

我做了什么:

library(haven)
df <- read_sav(mydata.sav)

attributes(df$gender) 
#$`label`
#[1] "Are you ...?"
#
#$format.spss
#[1] "F1.0"
#
#$display_width
#[1] 0
#
#$class
#[1] "haven_labelled"
#
#$labels
#
#female male
# 
#     1        2 

但使用:

attributes(df[,2])
#  $`names`
#[1] "gender"
#
#$row.names
#....
#
#$class
#
#[1] "tbl_df"     "tbl"        "data.frame"

因为数据集中有很多变量，我不使用 SPSS 如果有人知道如何通过使用列索引而不是变量名称来解决该问题，那将非常有帮助

Answer 1

这可以使用 [[ 提取器来完成，请参阅 Difference between [ and [[ 上的著名问题。
使用 help('read_spss') 中的示例进行测试。

library(haven)

path <- system.file("examples", "iris.sav", package = "haven")
df1 <- read_sav(path)
attributes(df1[[5]])$labels
#    setosa versicolor  virginica 
#         1          2          3