Это просто любопытство (узнайте больше об Сокращении). Есть способы улучшения методов достижения того, что я делаю, и я не заинтересован в них.
Некоторые люди используют серию вложенных команд ifelse
для перекодирования/поиска чего-то. Может быть, это выглядит так:
set.seed(10); x <- sample(letters[1:10], 300, T)
ifelse(x=="a", 1,
ifelse(x=="b", 2,
ifelse(x=="c", 3,
ifelse(x=="d", 4, 5))))
Есть ли способ использовать do.call
или Reduce
с ifelse
, чтобы сделать работу более красноречиво?