r - 如何在 R 中仅显示带标签的数据框中的一种类型的属性

Question

我只想显示一种类型的属性(例如标签)，此代码显示所有三种类型。

library(tidyverse)
library(labelled)

df <- tibble(age = c(10,20,30),
             sex = c(1,1,2))

df$sex <- labelled(
  c(1, 1, 2),
  c(Male = 1, Female = 2),
  label = "Assigned sex at birth"
)

# how to show only one attribute e.g. labels?
showAt <- function(db, v) {
  at <- df %>% 
    pull({{v}}) %>% 
    attributes
  return(at)
}

showAt(df, sex)
#> $labels
#>   Male Female 
#>      1      2 
#> 
#> $label
#> [1] "Assigned sex at birth"
#> 
#> $class
#> [1] "haven_labelled" "vctrs_vctr"     "double"
Created on 2022-08-19 by the reprex package (v2.0.1)

Answer 1

我们可以使用pluck

library(purrr)
library(dplyr)
showAt <- function(db, v) {
  at <- db %>% 
    pull({{v}}) %>% 
    attributes %>%
    pluck("labels")
  return(at)
}

-测试

> showAt(df, sex)
  Male Female 
     1      2