labels <- attr(data, "variable.labels")
labels_df <- data.frame(variable = names(labels), label = as.character(labels))