Данные:

DB1 <- data.frame(orderItemID  = 1:10,     
orderDate = c("2013-01-21","2013-03-31","2013-04-12","2013-06-01","2014-01-01", "2014-02-19","2014-02-27","2014-10-02","2014-10-31","2014-11-21"),  
deliveryDate = c("2013-01-23", "2013-03-01", "NA", "2013-06-04", "2014-01-03", "NA", "2014-02-28", "2014-10-04", "2014-11-01", "2014-11-23"))

Ожидаемый результат:

   DB1 <- data.frame(orderItemID  = 1:10,     
 orderDate= c("2013-01-21","2013-03-31","2013-04-12","2013-06-01","2014-01-01", "2014-02-19","2014-02-27","2014-10-02","2014-10-31","2014-11-21"),  
deliveryDate = c("2013-01-23", "2013-03-01", "2013-04-14", "2013-06-04", "2014-01-03", "2014-02-21", "2014-02-28", "2014-10-04", "2014-11-01", "2014-11-23"))

Привет, ребята, это снова я;) и, к сожалению (я думаю), у меня довольно сложный вопрос ... Как вы можете видеть выше, у меня есть некоторые пропущенные значения в датах поставки, и я хочу заменить их на другую дату. Эта дата должна бытьдата заказа конкретного товара + среднее время доставки, в (полных) днях, (В примере это 1,75 дня, то есть округляется до 2 дней) Среднее время доставки - это время, рассчитанное из среднего значения всех образцов, которые не содержат пропущенных значений = (2 дня + 1 день + 3 дня + 2 дня + 1 день + 2 дня + 1 день + 2 дня): 8 = 1,75

Таким образом, на первом шаге необходимо рассчитать среднее время доставки, а на втором шаге вместо НС необходимо ввести дату заказа + среднее время доставки (в полных днях).

Я уже немного попробовал с [is.na (DB1 $ deliveryDate)], но, к сожалению, я понятия не имею, как решить проблему ...

Надеюсь, у кого-нибудь есть идея