case_when使用方法

library(tidyverse)

## Warning: 程辑包'tidyverse'是用R版本3.6.3 来建造的

## -- Attaching packages --------------------------------------------------------------------------- tidyverse 1.3.0 --

## √ ggplot2 3.3.2     √ purrr   0.3.4
## √ tibble  3.0.3     √ dplyr   1.0.2
## √ tidyr   1.1.2     √ stringr 1.4.0
## √ readr   1.3.1     √ forcats 0.5.0

## Warning: 程辑包'ggplot2'是用R版本3.6.3 来建造的

## Warning: 程辑包'tibble'是用R版本3.6.3 来建造的

## Warning: 程辑包'tidyr'是用R版本3.6.3 来建造的

## Warning: 程辑包'readr'是用R版本3.6.3 来建造的

## Warning: 程辑包'purrr'是用R版本3.6.3 来建造的

## Warning: 程辑包'dplyr'是用R版本3.6.3 来建造的

## Warning: 程辑包'stringr'是用R版本3.6.3 来建造的

## Warning: 程辑包'forcats'是用R版本3.6.3 来建造的

## -- Conflicts ------------------------------------------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

b = data_frame(a = 1:100)

## Warning: `data_frame()` is deprecated as of tibble 1.1.0.
## Please use `tibble()` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

b %>% 
  mutate(c = case_when(
    a < 11 ~ '老大',
    a < 21 ~ '老二',
    TRUE ~ '老幺'
  )) %>% 
  .$c %>% 
  table()

## .
## 老大 老二 老幺 
##   10   10   80

如果我们满足了条件

• a < 11 ~ '老大',
• a < 21 ~ '老二',
• 剩下的非空都是'老幺'

---

and条件，是：

• &
• ,

或命题是|，ctrl+\