Как предотвратить превращение объектов 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

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

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 5

Причина, по которой это не сработает, заключается в том, что функция 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 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 () по умолчанию, «yes», поведение в соответствии с приведенным выше кодом или «no» для случаев, когда атрибуты значения «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