R haven print_labels 打印带标签向量的标签

print_labels(x, name = NULL)

s1 <- labelled(c("M", "M", "F"), c(Male = "M", Female = "F"))
s2 <- labelled(c(1, 1, 2), c(Male = 1, Female = 2))
labelled_df <- tibble::tibble(s1, s2)

for (var in names(labelled_df)) {
  print_labels(labelled_df[[var]], var)
}
#> 
#> Labels:s1
#>  value  label
#>      M   Male
#>      F Female
#> 
#> Labels:s2
#>  value  label
#>      1   Male
#>      2 Female