r 具有多个条件的子集

Posted 2021-05-23

mtcars %>%
  mutate(
    selected = case_when(
      cyl == 6 & carb == 4 ~ "yes",
      cyl == 8 & carb == 8 ~ "yes",
      TRUE                      ~  "no"
    )
  ) %>% 
  filter(selected == "yes") %>% 
  select(-selected)