A pipe-workflow optimised method to set variable labels.

set_varl(x, variable_label)

Arguments

x

Variable to assign variable labels to

variable_label

String vector to be assigned as the variable label

See also

Other Labels: set_vall()

Examples

library(tibble)
library(dplyr)
library(magrittr)
df <-
tibble(RESPID=1:1000,
       Q1=sample(c(0,1,2),1000,replace=TRUE),
       Q2=sample(c(0,1),1000,replace=TRUE))
df %>%
  mutate_at("Q1",funs(set_varl(.,"Which of the following groups do you fall into?"))) %>%
  .$Q1
#> Warning: `funs()` was deprecated in dplyr 0.8.0.
#>  Please use a list of either functions or lambdas:
#> 
#> # Simple named list: list(mean = mean, median = median)
#> 
#> # Auto named with `tibble::lst()`: tibble::lst(mean, median)
#> 
#> # Using lambdas list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
#>    [1] 2 2 2 2 2 2 0 2 0 0 1 0 2 0 2 0 0 2 2 2 0 0 2 0 1 1 1 1 2 1 0 0 2 0 0 0 1
#>   [38] 0 0 2 0 1 0 2 1 2 1 0 1 2 2 0 0 1 1 2 2 2 1 0 2 0 1 2 2 0 2 1 2 0 2 0 1 2
#>   [75] 2 1 2 1 2 2 2 1 1 2 2 2 1 0 2 2 1 2 2 0 0 2 0 2 2 1 0 0 0 0 0 0 0 1 2 1 1
#>  [112] 0 0 0 0 0 0 1 2 1 0 0 0 0 1 1 1 0 0 1 0 0 1 1 0 1 0 0 2 1 0 1 1 2 2 1 1 1
#>  [149] 2 1 1 1 1 1 2 2 1 0 1 0 1 0 1 2 2 0 2 1 1 0 1 2 1 1 2 0 0 0 0 0 2 2 2 2 1
#>  [186] 1 1 1 2 1 2 1 0 0 1 2 2 2 0 0 1 0 1 2 2 1 0 2 1 0 0 1 2 0 1 0 2 1 0 0 1 1
#>  [223] 0 2 2 1 2 1 2 0 0 2 1 0 1 0 2 2 2 0 0 0 0 2 0 1 0 0 1 1 2 1 1 2 2 1 2 0 1
#>  [260] 2 2 1 2 1 1 0 2 0 0 1 1 1 1 2 2 0 1 1 1 0 1 0 1 2 1 0 1 0 0 2 0 1 2 0 1 2
#>  [297] 0 2 0 2 1 2 2 1 1 1 0 2 2 2 0 0 2 1 2 2 0 0 1 1 2 0 2 2 0 0 0 0 1 0 2 0 1
#>  [334] 2 2 2 2 0 0 0 1 0 2 1 2 2 2 1 1 1 2 1 2 0 2 2 0 2 0 2 1 2 1 1 2 0 0 0 2 2
#>  [371] 2 1 1 2 1 0 0 1 1 0 0 1 2 2 1 2 1 2 1 1 2 1 2 0 1 1 0 1 2 2 2 2 2 2 2 1 1
#>  [408] 2 1 2 0 1 1 0 0 2 0 2 2 1 2 0 1 1 0 2 0 2 0 2 0 0 1 0 2 2 1 1 1 1 1 2 2 0
#>  [445] 2 2 2 2 1 0 2 0 1 0 0 1 2 2 1 0 0 2 1 0 0 1 2 1 1 0 1 0 1 2 2 1 2 1 0 1 0
#>  [482] 0 2 0 2 1 2 0 0 2 1 1 1 0 2 2 0 0 0 0 2 0 2 2 0 0 1 0 0 1 0 2 2 1 1 2 2 0
#>  [519] 0 2 2 1 2 0 0 0 1 2 0 2 0 1 0 1 1 2 0 0 0 0 1 1 1 0 2 1 0 1 0 2 2 1 2 0 1
#>  [556] 2 1 2 1 2 2 2 0 0 1 1 1 0 1 0 1 2 0 2 1 0 1 1 0 1 1 0 1 0 2 0 1 2 0 2 1 1
#>  [593] 1 2 2 0 2 0 2 0 0 2 2 1 1 0 0 2 1 1 1 2 0 2 1 2 0 2 0 1 0 0 0 0 0 0 1 1 2
#>  [630] 0 2 1 0 2 0 1 2 1 1 2 1 0 1 1 2 1 1 2 2 1 1 0 1 0 1 0 1 1 0 2 0 2 1 2 2 2
#>  [667] 0 2 0 0 1 1 0 1 2 0 0 2 0 1 1 1 0 2 0 2 2 0 0 2 1 1 2 1 2 2 1 2 2 2 2 2 0
#>  [704] 1 1 1 0 0 2 2 0 1 0 2 1 1 2 1 1 2 1 0 1 0 2 0 0 1 1 2 1 2 2 0 2 1 0 0 2 2
#>  [741] 1 2 2 0 1 2 1 1 2 1 0 2 2 2 1 0 2 2 2 2 0 1 0 2 1 1 1 2 0 1 0 2 0 2 0 1 2
#>  [778] 0 0 2 1 0 1 2 1 1 1 1 2 2 1 1 2 1 0 0 1 1 2 0 1 1 1 0 1 1 2 0 1 1 0 2 2 1
#>  [815] 1 0 0 0 1 1 0 0 2 0 0 2 0 2 0 0 1 1 1 0 2 0 0 0 1 2 1 1 2 0 0 1 1 2 0 2 0
#>  [852] 1 1 2 0 0 2 1 1 0 0 1 1 1 2 1 1 1 0 0 0 2 2 1 2 0 1 2 2 1 1 1 0 2 0 2 2 2
#>  [889] 0 2 2 2 1 1 1 0 1 1 2 2 2 2 1 2 2 0 0 2 1 1 1 2 0 1 0 0 1 1 0 0 0 2 2 1 1
#>  [926] 2 1 0 2 2 2 2 2 0 0 1 2 1 2 2 0 0 0 0 2 1 0 2 2 2 1 2 2 2 1 2 2 2 1 1 0 2
#>  [963] 0 2 2 0 1 0 1 1 2 2 1 1 1 1 1 2 0 0 1 0 0 0 2 0 1 0 2 1 0 1 0 0 1 0 1 0 2
#> [1000] 1
#> attr(,"label")
#> [1] "Which of the following groups do you fall into?"