10

これは純粋に好奇心です（Reduceの詳細をご覧ください）。私がしていることを達成するためのより良い方法があり、私はそれらに興味がありません。

ネストされた一連の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して仕事をもう少し雄弁に行う方法はありますか？

4

2 に答える 2

3

これを試して：

> library(gsubfn)
> strapply(x, ".", list(a = 1, b = 2, c = 3, d = 4, 5), simplify = TRUE)
  [1] 5 4 5 5 1 3 3 3 5 5 5 5 2 5 4 5 1 3 4 5 5 5 5 4 5 5 5 3 5 4 5 1 2 5 5 5 5
 [38] 5 5 5 3 3 1 5 3 2 1 5 2 5 4 5 3 5 2 5 5 5 4 5 1 2 5 4 5 5 5 5 1 3 1 5 5 5
 [75] 1 5 4 5 3 3 5 5 3 5 3 1 5 3 2 2 5 5 5 5 4 5 3 5 5 1 4 1 4 5 5 5 5 5 5 5 5
[112] 5 2 5 5 5 3 5 5 5 2 4 4 5 3 3 5 4 5 5 5 1 5 3 4 3 5 5 2 5 5 3 1 5 2 5 5 5
[149] 1 5 5 2 1 2 4 2 2 3 5 2 5 5 5 5 5 3 5 5 5 5 5 5 5 5 5 5 2 3 5 4 4 2 5 5 5
[186] 5 5 5 5 2 1 1 1 5 5 5 5 3 5 5 3 5 5 5 2 5 5 5 3 5 5 5 5 5 1 5 5 5 5 2 2 5
[223] 5 5 4 3 4 5 5 4 5 5 5 3 5 3 5 5 5 5 4 5 5 1 5 5 2 5 5 5 2 5 5 3 2 5 4 5 2
[260] 5 5 3 5 5 1 4 3 5 4 5 2 5 5 3 5 5 5 5 5 1 1 5 2 5 1 5 5 5 5 5 5 5 5 5 5 5
[297] 5 1 5 2
于 2012-08-03T16:52:02.283 に答える
0

これが試みです。それは美しくもなく、ifelseを使用していません：

f <- function(w,s) {
  if(is.null(s$old)) 
    w$output[is.na(w$output)] <- s$new
  else 
    w$output[w$input==s$old] <- s$new
  return(w)
}

set.seed(10); x <- sample(letters[1:10], 300, T)

subst <- list(
  list(old="a", new=1), 
  list(old="b", new=2),
  list(old="c", new=3),
  list(old="d", new=4),
  list(old=NULL, new=5)
)
workplace <- list(
  input=x,
  output=rep(NA, length(x))
)

Reduce(f, subst, workplace)
于 2012-08-03T21:59:02.107 に答える