Add a shadow column to a dataset

Casting a shadow shifted column performs the equivalent pattern to data that makes it easy to perform certain visualisations, in line with the principle that the user should have a way to flexibly return data formats containing information about the missing data. It forms the base building block for the functions cast_shadow_shift, and cast_shadow_shift_label. It also respects the dplyr verbs starts_with, contains, ends_with, etc. to select variables.

cast_shadow(data, ...)

Arguments

data	data.frame
...	One or more unquoted variable names separated by commas. These respect the dplyr verbs starts_with, contains, ends_with, etc.

Value

data with the added variable shifted and the suffix _NA

See also

cast_shadow_shift(), cast_shadow_shift_label() bind_shadow() add_any_miss() add_label_missings() add_label_shadow() add_miss_cluster() add_prop_miss() add_shadow_shift()

Examples

airquality %>% cast_shadow(Ozone)
#> # A tibble: 153 x 2
#>    Ozone Ozone_NA
#>    <int> <fct>   
#>  1    41 !NA     
#>  2    36 !NA     
#>  3    12 !NA     
#>  4    18 !NA     
#>  5    NA NA      
#>  6    28 !NA     
#>  7    23 !NA     
#>  8    19 !NA     
#>  9     8 !NA     
#> 10    NA NA      
#> # ... with 143 more rows
airquality %>% cast_shadow(Ozone, Solar.R)
#> # A tibble: 153 x 4
#>    Ozone Solar.R Ozone_NA Solar.R_NA
#>    <int>   <int> <fct>    <fct>     
#>  1    41     190 !NA      !NA       
#>  2    36     118 !NA      !NA       
#>  3    12     149 !NA      !NA       
#>  4    18     313 !NA      !NA       
#>  5    NA      NA NA       NA        
#>  6    28      NA !NA      NA        
#>  7    23     299 !NA      !NA       
#>  8    19      99 !NA      !NA       
#>  9     8      19 !NA      !NA       
#> 10    NA     194 NA       !NA       
#> # ... with 143 more rows
library(ggplot2)
library(magrittr)
#> 
#> Attaching package: ‘magrittr’
#> The following object is masked from ‘package:naniar’:
#> 
#>     set_names
#> The following objects are masked from ‘package:testthat’:
#> 
#>     equals, is_less_than, not
airquality  %>%
  cast_shadow(Ozone,Solar.R) %>%
  ggplot(aes(x = Ozone,
             colour = Solar.R_NA)) +
        geom_density()
#> Warning: Removed 37 rows containing non-finite values (stat_density).