Skip to content

Instantly share code, notes, and snippets.

@juanchiem

juanchiem/case_when + str_detect

Created March 24, 2021 20:12
Show Gist options
  • Save juanchiem/8cd6261bec77e53cde5ade8abca0c501 to your computer and use it in GitHub Desktop.
Save juanchiem/8cd6261bec77e53cde5ade8abca0c501 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
case_when + str_detect
df <- tibble::tribble(
~zona, ~campana,
"Madariaga - Maipu - Ramos Otero", "18-19",
"Balcarce - Loberia - La Brava", "18-19",
"Balcarce - Loberia - La Brava", "20-21",
"MdP - Miramar - Otamendi", "19-20",
"Madariaga - Maipu - Ramos Otero", "19-20",
"Madariaga - Maipu - Ramos Otero", "19-20",
"Madariaga - Maipu - Ramos Otero", "20-21",
"MdP - Miramar - Otamendi", "18-19",
"MdP - Miramar - Otamendi", "19-20",
"MdP - Miramar - Otamendi", "18-19"
)
df %>%
mutate(zona1 = case_when(
str_detect(zona, "Madariaga") ~ "Madariaga",
str_detect(zona, "Balcarce") ~ "Sierra",
TRUE ~ "Costa"
))
@juanchiem
Copy link
Author 

# A tibble: 10 x 3
   zona                            campana zona1    
   <chr>                           <chr>   <chr>    
 1 Madariaga - Maipu - Ramos Otero 18-19   Madariaga
 2 Balcarce - Loberia - La Brava   18-19   Sierra   
 3 Balcarce - Loberia - La Brava   20-21   Sierra   
 4 MdP - Miramar - Otamendi        19-20   Costa    
 5 Madariaga - Maipu - Ramos Otero 19-20   Madariaga
 6 Madariaga - Maipu - Ramos Otero 19-20   Madariaga
 7 Madariaga - Maipu - Ramos Otero 20-21   Madariaga
 8 MdP - Miramar - Otamendi        18-19   Costa    
 9 MdP - Miramar - Otamendi        19-20   Costa    
10 MdP - Miramar - Otamendi        18-19   Costa

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment