Hent variabeltekst for kategoriske variabler

Funksjon for å hente variabeltekstar på kategoriske variablar basert på kodebok. Genererer nye variabler med oppgitt suffiks og returnerer datasettet med de nye variablene inkludert. For en variabel som er kodet med en vilkårlig verdi vil denne funksjonen hente direkte fra kodebok hvilken gruppe de forskjellige verdiene representerer.

Usage

kb_fyll(df, kb, ..., .suffiks = "_tekst")

Arguments

df

Datasett som inkluderer de kategoriske variablene.

kb

Kodebok for registeret.

...

Ytterligere argumenter.

.suffiks

Suffiks for variabelnavn som kobles på det opprinnelige variabelnavnet. Default er "_tekst".

Examples

# Pakke for bruk av tibble-objekt og rør-operatoren
library(dplyr)

# eksempel kodebok
kb = tribble(
  ~variabel_id, ~verdi, ~verditekst,
  "kjonn", 1, "mann",
  "kjonn", 2, "kvinne",
  "med", 1, "antibac",
  "med", 2, "insulin",
  "med", 3, "ibux",
  "med", 4, "globoid",
  "gensp", 1, "Misfornøyd",
  "gensp", 2, "Både og",
  "gensp", 3, "Fornøyd"
)

# Eksempeldatasett
d = tribble(
  ~pasid, ~kjonn, ~alder, ~med, ~prem,
  101, 2, 18, 3, 2,
  102, 1, 37, 4, 2,
  103, 1, 17, 1, 3
)

# Fyll in verditekst for alle variabler i kodebok
kb_fyll(d, kb)
#> # A tibble: 3 × 7
#>   pasid kjonn kjonn_tekst alder   med med_tekst  prem
#>   <dbl> <dbl> <fct>       <dbl> <dbl> <fct>     <dbl>
#> 1   101     2 kvinne         18     3 ibux          2
#> 2   102     1 mann           37     4 globoid       2
#> 3   103     1 mann           17     1 antibac       3

# Hvis det kun skal hentes verditekst for en gitt variabel
kb_fyll(d, kb, kjonn)
#> # A tibble: 3 × 6
#>   pasid kjonn kjonn_tekst alder   med  prem
#>   <dbl> <dbl> <fct>       <dbl> <dbl> <dbl>
#> 1   101     2 kvinne         18     3     2
#> 2   102     1 mann           37     4     2
#> 3   103     1 mann           17     1     3

# Variabler kan kobles mot variabel_id med annet navn i kodebok
kb_fyll(d, kb, kjonn, prem = "gensp")
#> # A tibble: 3 × 7
#>   pasid kjonn kjonn_tekst alder   med  prem prem_tekst
#>   <dbl> <dbl> <fct>       <dbl> <dbl> <dbl> <fct>     
#> 1   101     2 kvinne         18     3     2 Både og   
#> 2   102     1 mann           37     4     2 Både og   
#> 3   103     1 mann           17     1     3 Fornøyd   

# Suffiks kan endres fra default "_tekst"
kb_fyll(d, kb, med, .suffiks = "_hei")
#> # A tibble: 3 × 6
#>   pasid kjonn alder   med med_hei  prem
#>   <dbl> <dbl> <dbl> <dbl> <fct>   <dbl>
#> 1   101     2    18     3 ibux        2
#> 2   102     1    37     4 globoid     2
#> 3   103     1    17     1 antibac     3