特定の数値はそのままに、条件付けで新たな変数を作成したい

Question

DT <- DT %>% 
  mutate(
    Survival = if(
      `Survival months` > 60)
    { Survival <- 60 }
  )

```Survivalという新たな変数を作成したいのですが、もともとあるSurvival monthsというnumeric変数の60か月より長い数値を60に、60以下はそのままの数値を返したいのですが、以下のスクリプトではすべて60で返ってきてしまいます。
どこが悪いかご指摘おねがいできますでしょうか？
DTはtibble形式のデータセットです。


宜しくお願い致します。

Comments

[KojiDoi]

https://apuridasuo.hatenablog.com/entry/2019/10/20/220308#%E3%82%BD%E3%83%BC%E3%82%B9%E3%82%B3%E3%83%BC%E3%83%89%E3%82%92%E8%B2%BC%E3%82%8B%E3%81%A8%E3%81%8D%E3%81%AF%E3%82%BF%E3%82%B0%E3%81%A7%E5%9B%B2%E3%82%80

[Yvolve]

申し訳ありません。いつもありがとうございます。まずはコードの貼り方を変えました。解決方法については何度もWebで検索しましたが、解決に至らなかったためteratailさんに質問させていただいた次第です。

Answer 1

このifの使い方では、文法上エラーにはなりませんが期待したような結果は返りません。if(...)では単一の値の評価しかできないので、ベクトルを得なければならない本件には適していないのです。警告メッセージが出ているはずなので読みましょう。

こういうときはifelse()を使います。

> x<-c(10, 20, 30, 40, 50, 60, 70, 80)
> y<-if(x<=60){y<-60}
 警告メッセージ: 
 if (x <= 60) { で: 
   条件が長さが 2 以上なので、最初の 1 つだけが使われます 
> y
[1] 60
> y<-ifelse(x<=60, x, 60)
> y
[1] 10 20 30 40 50 60 60 60

Comments

[Yvolve]

もとのtibbleからDT$'Survival months'でベクトルを取り出し、その後教えて頂いた方法で新たなベクトルyを作成し、改めてtibbleに戻しました。大変勉強になりました。いつも本当にありがとうございます。