ifelse（）がDateオブジェクトを数値オブジェクトに変換しないようにする方法

関数ifelse()を使用して日付ベクトルを操作しています。結果はクラスDateであると予想しましたが、numeric代わりにベクトルを取得することに驚いていました。次に例を示します。

dates <- as.Date(c('2011-01-01', '2011-01-02', '2011-01-03', '2011-01-04', '2011-01-05'))
dates <- ifelse(dates == '2011-01-01', dates - 1, dates)
str(dates)

ベクトル全体で操作を実行するとDateオブジェクトが返されるため、これは特に驚くべきことです。

dates <- as.Date(c('2011-01-01', '2011-01-02', '2011-01-03', '2011-01-04','2011-01-05'))
dates <- dates - 1
str(dates)

Dateベクターを操作するために他の関数を使用する必要がありますか？もしそうなら、どのような機能ですか？そうでない場合ifelse、入力と同じタイプのベクトルを強制的に返すにはどうすればよいですか？

のヘルプページifelseは、これがバグではなく機能であることを示していますが、私がまだ驚くべき動作であることが判明したものの説明を見つけるのに苦労しています。

data.table::fifelse（data.table >= 1.12.3）またはを使用できますdplyr::if_else。

data.table::fifelse

とは異なりifelse、fifelse入力のタイプとクラスを保持します。

library(data.table)
dates <- fifelse(dates == '2011-01-01', dates - 1, dates)
str(dates)
# Date[1:5], format: "2010-12-31" "2011-01-02" "2011-01-03" "2011-01-04" "2011-01-05"

dplyr::if_else

dplyr 0.5.0リリースノートから：

[ if_else]はより厳密なセマンティクスを持っていifelse()ます。：trueとfalse引数は同じ型でなければなりません。これにより、予期しない戻り値の型が得られ、日付のようなS3ベクトルが保持されます。

library(dplyr)
dates <- if_else(dates == '2011-01-01', dates - 1, dates)
str(dates)
# Date[1:5], format: "2010-12-31" "2011-01-02" "2011-01-03" "2011-01-04" "2011-01-05" 

これは、文書化に関連する価値のifelse：

またはの値からのデータ値と同じ長さと属性（次元と " class" を含む）のベクトル。回答のモードは、最初にから取得したすべての値、次にから取得したすべての値に対応するために、論理から強制されます。testyesnoyesno

その意味するところまで要約すると、ifelse因子はレベルを失い、日付はクラスを失い、モード（「数値」）だけが復元されます。代わりにこれを試してください：

dates[dates == '2011-01-01'] <- dates[dates == '2011-01-01'] - 1
str(dates)
# Date[1:5], format: "2010-12-31" "2011-01-02" "2011-01-03" "2011-01-04" "2011-01-05"

あなたは作成することができますsafe.ifelse：

safe.ifelse <- function(cond, yes, no){ class.y <- class(yes)
                                  X <- ifelse(cond, yes, no)
                                  class(X) <- class.y; return(X)}

safe.ifelse(dates == '2011-01-01', dates - 1, dates)
# [1] "2010-12-31" "2011-01-02" "2011-01-03" "2011-01-04" "2011-01-05"

後の注：Hadleyがif_elsemagrittr / dplyr / tidyr複合データシェーピングパッケージに組み込みました。

DWinの説明は正解です。ifelseステートメントの後でクラスを強制することができることに気付く前に、私はしばらくこれをいじって戦った。

dates <- as.Date(c('2011-01-01','2011-01-02','2011-01-03','2011-01-04','2011-01-05'))
dates <- ifelse(dates=='2011-01-01',dates-1,dates)
str(dates)
class(dates)<- "Date"
str(dates)

最初これは私に少し「ハック」を感じました。しかし、今では、ifelse（）から得られるパフォーマンスリターンを支払うための小さな代償と考えています。さらに、ループよりもはるかに簡潔です。

推奨される方法は、因子列では機能しません。この改善を提案したいのですが：

safe.ifelse <- function(cond, yes, no) {
  class.y <- class(yes)
  if (class.y == "factor") {
    levels.y = levels(yes)
  }
  X <- ifelse(cond,yes,no)
  if (class.y == "factor") {
    X = as.factor(X)
    levels(X) = levels.y
  } else {
    class(X) <- class.y
  }
  return(X)
}

ちなみに、ifelseは吸います...大きな責任が伴います。つまり、1x1行列および/または数値（たとえば、追加する必要がある場合）の型変換は私には問題ありませんが、ifelseでのこの型変換は明らかに望ましくありません。私は今度はifelseのまったく同じ「バグ」に何度もぶつかりました、そしてそれはちょうど私の時間を盗み続けます:-(

FW

これが機能しない理由は、ifelse（）関数が値を係数に変換するためです。良い回避策は、評価する前に文字に変換することです。

dates <- as.Date(c('2011-01-01','2011-01-02','2011-01-03','2011-01-04','2011-01-05'))
dates_new <- dates - 1
dates <- as.Date(ifelse(dates =='2011-01-01',as.character(dates_new),as.character(dates)))

これには、ベースR以外のライブラリは必要ありません。

@ fabian-wernerが提供する答えは素晴らしいですが、オブジェクトは複数のクラスを持つことができ、「factor」は必ずしもによって返される最初のものではない可能性があるため、class(yes)すべてのクラス属性をチェックするためにこの小さな変更を提案します。

safe.ifelse <- function(cond, yes, no) {
      class.y <- class(yes)
      if ("factor" %in% class.y) {  # Note the small condition change here
        levels.y = levels(yes)
      }
      X <- ifelse(cond,yes,no)
      if ("factor" %in% class.y) {  # Note the small condition change here
        X = as.factor(X)
        levels(X) = levels.y
      } else {
        class(X) <- class.y
      }
      return(X)
    }

また、保持する属性のユーザー選択に基づいてbase :: ifelse（）が属性を保持するように文書化されたオプションを追加するように、R開発チームにリクエストを送信しました。リクエストはこちら：https : //bugs.r-project.org/bugzilla/show_bug.cgi?id=16609 //bugs.r-project.org/bugzilla/show_bug.cgi?id=16609-それは常に現在の方法であったという理由ですでに「WONTFIX」としてフラグが付けられています、しかし、単純な追加で多くのRユーザーの頭痛を軽減できる理由について、フォローアップの引数を提供しました。おそらく、そのバグスレッドでの「+1」は、Rコアチームの再検討を促すでしょう。

編集：これは、ユーザーがどの属性を保持するかを指定できる、より優れたバージョンです。「cond」（デフォルトはifelse（）の動作）、「yes」、上記のコードによる動作、または「no」の場合「いいえ」の値の属性の方が優れています。

safe_ifelse <- function(cond, yes, no, preserved_attributes = "yes") {
    # Capture the user's choice for which attributes to preserve in return value
    preserved           <- switch(EXPR = preserved_attributes, "cond" = cond,
                                                               "yes"  = yes,
                                                               "no"   = no);
    # Preserve the desired values and check if object is a factor
    preserved_class     <- class(preserved);
    preserved_levels    <- levels(preserved);
    preserved_is_factor <- "factor" %in% preserved_class;

    # We have to use base::ifelse() for its vectorized properties
    # If we do our own if() {} else {}, then it will only work on first variable in a list
    return_obj <- ifelse(cond, yes, no);

    # If the object whose attributes we want to retain is a factor
    # Typecast the return object as.factor()
    # Set its levels()
    # Then check to see if it's also one or more classes in addition to "factor"
    # If so, set the classes, which will preserve "factor" too
    if (preserved_is_factor) {
        return_obj          <- as.factor(return_obj);
        levels(return_obj)  <- preserved_levels;
        if (length(preserved_class) > 1) {
          class(return_obj) <- preserved_class;
        }
    }
    # In all cases we want to preserve the class of the chosen object, so set it here
    else {
        class(return_obj)   <- preserved_class;
    }
    return(return_obj);

} # End safe_ifelse function