Как предотвратить превращение объектов Date в ifelse() в числовые объекты

Question

Я использую функцию 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 указывает на то, что это особенность, а не ошибка, но я все еще пытаюсь найти объяснение тому, что я считаю удивительным поведением.

Answer 1

Вы можете использовать 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" 

Answer 2

Это относится к документированной стоимости ifelse:

Вектор такой же длины и атрибутов (включая размеры иclass") как test и значения данных из значений yes или же no, Режим ответа будет приведен из логического, чтобы приспособить сначала любые значения, взятые из yes а затем любые значения, взятые из no,

Сводится к его последствиям, 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"

Позднее примечание: я вижу, что Хэдли построил if_else в комплекс magrittr/dplyr/tidyr пакетов для формирования данных.

Answer 3

Объяснение 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(). Плюс это все еще намного более кратко чем петля.

Answer 4

Причина, по которой это не сработает, заключается в том, что функция 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.

Answer 5

Предлагаемый метод не работает со столбцами факторов. Я хотел бы предложить это улучшение:

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

Answer 6

Ответ, предоставленный @ 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)
    }

Я также отправил запрос команде разработчиков R на добавление документированной опции, чтобы base::ifelse() сохраняла атрибуты на основе выбора пользователем того, какие атрибуты сохранять. Запрос здесь: https://bugs.r-project.org/bugzilla/show_bug.cgi?id=16609 - он уже помечен как "WONTFIX" на том основании, что он всегда был таким, как сейчас, но я привел дополнительный аргумент о том, почему простое добавление может сэкономить много головной боли пользователям R. Возможно, ваше "+1" в этой ветке ошибок побудит команду R Core взглянуть еще раз.

РЕДАКТИРОВАТЬ: Вот лучшая версия, которая позволяет пользователю указать, какие атрибуты сохранять, либо "cond" (поведение по умолчанию ifelse ()), "да", поведение в соответствии с приведенным выше кодом, либо "нет", для случаев, когда атрибуты значения "нет" лучше:

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

Answer 7

Почему бы не использовать здесь индексацию?

      > dates <- as.Date(c('2011-01-01', '2011-01-02', '2011-01-03', '2011-01-04', '2011-01-05'))
> dates[dates == '2011-01-01'] <- NA
> str(dates)
 Date[1:5], format: NA "2011-01-02" "2011-01-03" "2011-01-04" "2011-01-05"