[Experimental] Converts a vector object to a categorical object, typically a column in a data frame. The categories come from non-missing values present in the object and are added to an associated data dictionary (when present).

as_category(x)

Arguments

x

A vector object to be coerced to categorical.

Value

A vector with class haven_labelled.

Examples

{

library(dplyr)
mtcars <- tibble(mtcars)
as_category(mtcars[['cyl']])

head(mtcars %>% mutate(cyl = as_category(cyl)))


}
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
#> # A tibble: 6 × 11
#>     mpg cyl        disp    hp  drat    wt  qsec    vs    am  gear  carb
#>   <dbl> <dbl+lbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1  21   6 [6]       160   110  3.9   2.62  16.5     0     1     4     4
#> 2  21   6 [6]       160   110  3.9   2.88  17.0     0     1     4     4
#> 3  22.8 4 [4]       108    93  3.85  2.32  18.6     1     1     4     1
#> 4  21.4 6 [6]       258   110  3.08  3.22  19.4     1     0     3     1
#> 5  18.7 8 [8]       360   175  3.15  3.44  17.0     0     0     3     2
#> 6  18.1 6 [6]       225   105  2.76  3.46  20.2     1     0     3     1