combine dyplr criteria code?

Question

I have this code that works well, but how can I combine the 3 lines of code into 1 ?

Basically I need to create these extra helper QC columns, I am also translating this from other SAS code (that someone else owns) to R, the goal is to just translate it, not to question it.

The goal is to end up with 3 extra columns N, C and K appending to the end of the data set, when their condition is satisfied.

TEST <- FINAL %>% filter(is.na(NAME)) %>% mutate(N = 1)

TEST <- FINAL %>% filter(is.na(COUNTRY)) %>% mutate(C = 1)

TEST <- FINAL %>% filter( CATEGORY == 'T' & (BEGN_DT <= 20170302 & END_DT >= 20170312) ) %>% mutate(K = 1)

[Can you?](http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example#5963610) — alistaire, Jan 24 '17 at 22:37
doesn't ifelse in mutate needs three parameters: test, truth value, false value for each one that I am testing ? — Ray Kodiak, Jan 24 '17 at 22:54

score 1 · Accepted Answer · answered Jan 25 '17 at 02:07

1

Conditional mutate is still a work-in-progress for dplyr, but it can be done:

mtcars %>%
  mutate(x = case_when(.$cyl == 6 ~ 1)) %>% 
  mutate(y = case_when(.$am == 1 ~ 9)) %>% 
  mutate(z = case_when(is.na(.$x) ~ 5))

answered Jan 25 '17 at 02:07

Jonathan Carroll

3,897
14
34

score 0 · Answer 2 · answered Jan 25 '17 at 02:46

0

We can do this without filtering

FINAL %>% 
     mutate(N = as.integer(is.na(NAME)),
            C = as.integer(is.na(COUNTRY)),
            K = as.integer(CATEGORY == 'T' & (BEGN_DT <= 20170302 & END_DT >= 20170312)))

It will result in binary columns with 1 corresponding to TRUE values for the condition and 0 for other cases.

answered Jan 25 '17 at 02:46

akrun

874,273
37
540
662

1

thanks Ya'All! Interesting to see how different people brains work, I wish there was a way to flag negative people, they suck or at least remove them from helping on my post. – Ray Kodiak Feb 08 '17 at 23:51

combine dyplr criteria code?

2 Answers2