如何按列索引获取列的标签？

Question

我有一个使用包haven从Stata导入的名为x的数据框。 每列都是一个labelled类。我可以使用以下命令来检索标签。

attributes(x$col1)$labels 
 No Yes 
  0   1 

但是，我希望不使用“ $”操作就得到相同的结果，但是

attributes(x[, 1] %>% as.vector())$labels 

返回NULL。

我的最终目标是通过在所有列中循环以下代码来打印代码簿脚本：

for(i in 1:5){
  cat("[", i, "]", names(x)[i], "\n", "\t",
      label(x[, i]), "\n", sep = "")
  attributes(x[, i] %>% as.vector())$labels
}

有人可以在这里帮助我吗？谢谢！