Как использовать as.Date, если в одном столбце есть NA, пустые ячейки и разные форматы?

Я думаю, что вам нужно ifelse:

x = c("2012-01-01", "13/01/2012", "")
x1 = as.Date(x, format="%Y-%m-%d")
x2 = as.Date(x, format="%d/%m/%Y")
y = as.Date(
  ifelse(!is.na(x1), as.Date(x1), 
         ifelse(!is.na(x2), x2, x1)), 
  origin = as.Date("1970/01/01")
)
y
[1] "2012-01-01" "2012-01-13" NA   

По какой-то причине мне пришлось завернуть ifelse в as.Date(), иначе даты печатались как числа, а не как фактические даты. В этом случае необходим аргумент origin.

Изменить

Вот как работает приведенный выше код. ifelse(condition, value_if_true, value_if_false) — это векторизованная функция, которая принимает в качестве аргументов три вектора одинаковой длины. (Способ работы R, если один из этих аргументов является единственным значением, он будет автоматически повторяться нужное количество раз, термин для этого — «трансляция».) Выполнение ifelse() выглядит следующим образом:

а) Для каждого элемента в condition проверьте, является ли он TRUE или FALSE.

б) Если condition равно TRUE, взять соответствующее значение из вектора value_if_true.

c) В противном случае, если condition равно FALSE, взять соответствующее значение из вектора value_if_false

Теперь вы можете вкладывать ifelse() друг в друга, что позволяет выполнять трехэтапную проверку условий или даже больше, если это необходимо. Имейте в виду, что вложение нескольких вызовов ifelse может очень быстро привести к беспорядку.

С этим знанием приведенный выше код должен быть простым для разбора:

1) x создает пример вектора дат, хранящихся в виде строк с разными форматами.

2) x1 правильно анализирует первую дату и не может анализировать вторую дату.

3) x2 правильно разбирает второй формат даты, но не может разобрать первую дату.

4) Затем два вложенных вызова ifelse объединяют правильно проанализированные даты в один вектор. Сначала ifelse проверяет правильность анализа первого формата даты (!is.na(x) означает "всякий раз, когда значение x не равно NA") и возвращает непропущенные значения из x1. Если x1 отсутствует, он вызывает второй ifelse, который возвращает неотсутствующие значения из x2, а затем, если x2 также отсутствует, он возвращает пропущенные значения в окончательный результат.

5) По какой-то причине вложенные вызовы ifelse возвращают даты, отформатированные как числа, а не как строки, поэтому я оборачиваю результат 4) в as.Date, чтобы получить красиво отформатированные даты. В R, когда вы пытаетесь преобразовать числа в даты, вы должны указать origin — даты интерпретируются как количество дней, прошедших с некоторой заранее определенной даты начала, которая в R — 1 января 1970 года.

Надеюсь это поможет.