У меня есть фрейм данных с именем 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
}
Может кто-нибудь помочь мне здесь?Спасибо!