case_when

参考：case_when: A general vectorised if Others 用 TRUE 表示，举例如下： x <- 1:50 case_when( x %% 35 == 0 ~ "fizz buzz", x %% 5 == 0 ~ "fizz", x %% 7 == 0 ~ "buz ......