Skip to contents

Convert factor to logical

Source: R/var_case.R
var_case.Rd

Convert factor to logical

Usage

var_case(newvr, vr, cases, retain_na = TRUE)

Arguments

newvr

name of the new logical variable to be created

vr

factor variable

cases

one or more levels of vr that are converted to TRUE. All other levels are converted to FALSE.

retain_na

for the observations where vr is NA, should newvr be NA as well?

Value

Survey object

See also

Other variables: var_all(), var_any(), var_collapse(), var_copy(), var_cross(), var_cut(), var_not()

Examples

set_survey(namcs2019sv)
#>                         Survey info {NAMCS 2019 PUF}                         
#> ┌───────────┬──────────────┬────────────────────────────────────────────────┐
#> │ Variables │ Observations │ Design                                         │
#> ├───────────┼──────────────┼────────────────────────────────────────────────┤
#> │        33 │        8,250 │ Stratified 1 - level Cluster Sampling design   │
#> │           │              │ (with replacement)                             │
#> │           │              │ With (398) clusters.                           │
#> │           │              │ namcs2019sv = survey::svydesign(ids = ~CPSUM,  │
#> │           │              │ strata = ~CSTRATM, weights = ~PATWT            │
#> │           │              │ , data = namcs2019sv_df)                       │
#> └───────────┴──────────────┴────────────────────────────────────────────────┘
#> 

var_case("Preventive care visits", "MAJOR", "Preventive care")
tab("Preventive care visits")
#>                                Preventive care visits {NAMCS 2019 PUF}                                
#> ┌───────┬───────┬─────────────┬────────────┬─────────────┬─────────────┬─────────┬─────┬──────┬──────┐
#> │ Level │     n │      Number │         SE │          LL │          UL │ Percent │  SE │   LL │   UL │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ FALSE │ 6,682 │ 812,860,686 │ 45,220,483 │ 728,841,389 │ 906,565,549 │    78.4 │ 1.7 │ 74.9 │ 81.7 │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ TRUE  │ 1,568 │ 223,623,671 │ 18,519,789 │ 190,068,005 │ 263,103,441 │    21.6 │ 1.7 │ 18.3 │ 25.1 │
#> └───────┴───────┴─────────────┴────────────┴─────────────┴─────────────┴─────────┴─────┴──────┴──────┘
#>   N = 8250.                                                                                           
#> 

var_case("Surgery-related visits"
, "MAJOR"
, c("Pre-surgery", "Post-surgery"))
tab("Surgery-related visits")
#>                                Surgery-related visits {NAMCS 2019 PUF}                                
#> ┌───────┬───────┬─────────────┬────────────┬─────────────┬─────────────┬─────────┬─────┬──────┬──────┐
#> │ Level │     n │      Number │         SE │          LL │          UL │ Percent │  SE │   LL │   UL │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ FALSE │ 7,432 │ 969,450,753 │ 47,976,379 │ 879,792,684 │ 1,068,245,7 │    93.5 │ 0.8 │ 91.9 │ 94.9 │
#> │       │       │             │            │             │          12 │         │     │      │      │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ TRUE  │   818 │  67,033,604 │  7,810,237 │  53,273,079 │  84,348,494 │     6.5 │ 0.8 │  5.1 │  8.1 │
#> └───────┴───────┴─────────────┴────────────┴─────────────┴─────────────┴─────────┴─────┴──────┴──────┘
#>   N = 8250.                                                                                           
#> 

var_case("Non-primary"
, "SPECCAT.bad"
, c("Surgical care specialty", "Medical care specialty"))
tab("Non-primary")
#>                                      Non-primary {NAMCS 2019 PUF}                                     
#> ┌───────┬───────┬─────────────┬────────────┬─────────────┬─────────────┬─────────┬─────┬──────┬──────┐
#> │ Level │     n │      Number │         SE │          LL │          UL │ Percent │  SE │   LL │   UL │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ FALSE │ 2,406 │ 422,806,843 │ 26,381,877 │ 374,098,520 │ 477,857,080 │    40.8 │ 2.2 │ 36.5 │ 45.2 │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ TRUE  │ 4,194 │ 406,215,659 │ 32,642,950 │ 346,937,333 │ 475,622,385 │    39.2 │ 2.1 │ 35   │ 43.5 │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ <N/A> │ 1,650 │ 207,461,854 │ 12,457,774 │ 184,377,795 │ 233,436,032 │    20   │ 0.8 │ 18.5 │ 21.6 │
#> └───────┴───────┴─────────────┴────────────┴─────────────┴─────────────┴─────────┴─────┴──────┴──────┘
#>   N = 8250.                                                                                           
#> 
tab("Non-primary", drop_na = TRUE)
#>                               Non-primary (knowns only) {NAMCS 2019 PUF}                              
#> ┌───────┬───────┬─────────────┬────────────┬─────────────┬─────────────┬─────────┬─────┬──────┬──────┐
#> │ Level │     n │      Number │         SE │          LL │          UL │ Percent │  SE │   LL │   UL │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ FALSE │ 2,406 │ 422,806,843 │ 26,381,877 │ 374,098,520 │ 477,857,080 │      51 │ 2.6 │ 45.7 │ 56.3 │
#> ├───────┼───────┼─────────────┼────────────┼─────────────┼─────────────┼─────────┼─────┼──────┼──────┤
#> │ TRUE  │ 4,194 │ 406,215,659 │ 32,642,950 │ 346,937,333 │ 475,622,385 │      49 │ 2.6 │ 43.7 │ 54.3 │
#> └───────┴───────┴─────────────┴────────────┴─────────────┴─────────────┴─────────┴─────┴──────┴──────┘
#>   N = 6600.                                                                                           
#>