r - 条件に基づいてdata.frameに新しい変数を作成するにはどうすればよいですか？

Question

データフレームがあると仮定します

x   y
1   1
2   4 
4   5 

xが1以下の場合は「good」を返し、xが3〜5の場合は「bad」を返し、それ以外の場合は「fair」を返すように、データフレームに新しい変数を追加するにはどうすればよいですか。

x   y  w
1   1  "good"
2   2   "fair"
5   5   "bad"

ocram。によって示される方法を適用しましたが、ここでは機能しません。

d1 <- c("e", "c", "a")
d2 <- c("e", "a", "b")

w <- ifelse(d1 == "e" & (d2=="e"), 1, ifelse((d1 == "a") & (d2 =="b"), 2, ifelse(d1 == "e"),3,99))

何か案は？ありがとう

Answer 1

明白で直接的な可能性の1つは、「if-else条件」を使用することです。その例では

x <- c(1, 2, 4)
y <- c(1, 4, 5)
w <- ifelse(x <= 1, "good", ifelse((x >= 3) & (x <= 5), "bad", "fair"))
data.frame(x, y, w)

**編集の追加の質問について**それはあなたが期待していることですか？

> d1 <- c("e", "c", "a")
> d2 <- c("e", "a", "b")
> 
> w <- ifelse((d1 == "e") & (d2 == "e"), 1, 
+    ifelse((d1=="a") & (d2 == "b"), 2,
+    ifelse((d1 == "e"), 3, 99)))
>     
> data.frame(d1, d2, w)
  d1 d2  w
1  e  e  1
2  c  a 99
3  a  b  2

ifelse関数に慣れていない場合は、そのようなアプリケーションのifandelseステートメントを使用することもできます。

Answer 2

レベルの数が非常に限られている場合は、yファクターに変換してそのレベルを変更してみてください。

> xy <- data.frame(x = c(1, 2, 4), y = c(1, 4, 5))
> xy$w <- as.factor(xy$y)
> levels(xy$w) <- c("good", "fair", "bad")
> xy
  x y    w
1 1 1 good
2 2 4 fair
3 4 5  bad