Здесь решение использует функцию ifelse()
.
df<-data.frame(
X = sample(1:10),
Y = sample(c("yes", "no"), 10, replace = TRUE),
Z = sample(c("yes", "no"), 10, replace = TRUE),
ZZ = sample(c("yes", "no"), 10, replace = TRUE))
df$Y=as.integer(ifelse(df$Y=="yes",2,1))
df$ZZ=as.integer(ifelse(df$ZZ=="yes",3,4))
str(df)
'data.frame': 10 obs. of 4 variables:
$ X : int 9 4 8 5 1 7 2 10 6 3
$ Y : int 2 2 1 1 2 1 2 1 1 1
$ Z : Factor w/ 2 levels "no","yes": 2 1 2 2 1 2 2 1 1 1
$ ZZ: int 3 3 4 3 3 3 3 4 4 3
РЕДАКТИРОВАТЬ
Для выполнения функций f
и g
для одной и той же задачи
f<-function(x){
as.integer(ifelse(x=="yes",2,1))
}
g<-function(x){
as.integer(ifelse(x=="yes",3,4))
}
df$Y=f(df$Y)
df$ZZ=g(df$ZZ)