Как мне упростить замену кодов ниже

Question

Чтобы заменить столбец ClientType другими строками, такими как:

#Change the label of ClientType
data$ClientType[data$ClientType=="a"]<-"Android"
data$ClientType[data$ClientType=="b"]<-"ios"
data$ClientType[data$ClientType=="c"]<-"web"
data$ClientType[data$ClientType=="d"]<-"type4"
data$ClientType[data$ClientType=="e"]<-"Type5"
...

Спасибо за любые комментарии!

Answer 1

Один вариант - использовать dplyr case_when

library(dplyr)
data %>%
  mutate(ClientType = case_when(ClientType == "a" ~ "Android", 
                                ClientType == "b" ~ "ios",
                                ClientType == "c" ~ "web",
                                ClientType == "d" ~ "type4",
                                ClientType == "e" ~ "Type5",
                                TRUE ~ NA))

---

Другой вариант - использовать recode

recode(data$ClientType,a = "Android",b = "ios",c = "web", d = "type4", e = "type5")