Vfrdtyky

I am trying to get this to work:

test.ROOT.triples <- triples %>%

  filter(dep_rel.y %in% c("ROOT"),

     {

       if(verb_head_token_id == neg.adverb_head_token_id) filter (subject_head_token_id == neg.adverb_head_token_id,

                                                                  verb_head_token_id == neg.adverb_head_token_id,

                                                                  verb_token_id == object_head_token_id)

       else

         filter(subject_head_token_id == verb_head_token_id,

                verb_token_id == object_head_token_id))

     }

My syntax isn't quite right. I get a message about unmatched opening and closing brackets.

This code works if it's not being used in an if/else statement, but I would like to use a dplyr filter in an if/else statement.

Thank you in advance.

If else statements within dplyr are of a particular sort of syntax, I never use them within Filter and I'm not sure if that even works. One solution may be to just filter down two separate data frames and join them later if you want.

I am separating the filter statements for ease of reading, but you can have them all in the same filter statement separated by commas.

triples %>%

filter(dep_rel.y %in% c("ROOT")) %>%

filter(verb_head_token_id == neg.adverb_head_token_id) %>%

filter(subject_head_token_id == neg.adverb_head_token_id) %>%

filter(verb_head_token_id == neg.adverb_head_token_id) %>% 

filter(verb_token_id == object_head_token_id) -> FirstDF



triples %>%

filter(dep_rel.y %in% c("ROOT")) %>%

filter(subject_head_token_id == verb_head_token_id) %>%

filter(verb_token_id == object_head_token_id) -> SecondDF

You can look up rbind to re-attach them (if you even want that, I imagine downstream analyses would be different so having them separate may be cleaner).

Just to show you of how the if else statements work within dplyr pipeline, you could create an index to mark the rows of different qualities with a new variable. The structure of IF Else in dplyr is demonstrated:

NewItem = if_else(logicals, WhatHappensIfTrue, WhatHappensIfFalse)



triples %>% mutate(Category = if_else(verb_head_token_id == neg.adverb_head_token_id &

subject_head_token_id == neg.adverb_head_token_id &

verb_head_token_id == neg.adverb_head_token_id &

verb_token_id == object_head_token_id, #comma denotes end of "if" logical

1, #This 1 is what happens if logical(s) TRUE

0)) #The zero is "else" - when logical(s) FALSE. It CAN be another if_else.