Как получить метки столбца по индексу столбца?

Question

У меня есть фрейм данных с именем x, импортированный из Stata с использованием пакета haven, Каждый столбец 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
}

Может ли кто-нибудь помочь мне здесь? Спасибо!