Вот воспроизводимый пример с использованием dplyr::case_when()
, который можно обобщить для любого числа условий:
library(tidyverse)
d <- tibble(city = c("Oklahoma City","Los Angeles","OC","NY","Z","Z","X","N"))
d <- mutate(d, city = case_when(city %in% c("Z","X","N") ~ "Other",
city == "Oklahoma City" ~ "OKL",
city == "Los Angeles" ~ "LA",
TRUE ~ city))
d
# A tibble: 8 x 1
city
<chr>
1 OKL
2 LA
3 OC
4 NY
5 Other
6 Other
7 Other
8 Other