# case when d=tibble(x=1:6,g=c("a","a","a","b","b","b")) d d %>% mutate(y=case_when( g=="a" ~ x, g=="b" ~ -x ))
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.