重排日期r

Question

我有三列日期。

test <- data.frame(a = as.Date(rep("2008-02-04", 5)), 
       b = as.Date(c("2010-01-25", 
          "2012-04-13", 
          "2013-04-04", 
          "2013-09-06", 
          "2014-08-14")), 
       c = as.Date(c("2010-01-29", 
          "2012-04-16", 
          NA, 
          "2013-09-19", 
          "2014-08-21"))); test 
      a   b   c 
1 2008-02-04 2010-01-25 2010-01-29 
2 2008-02-04 2012-04-13 2012-04-16 
3 2008-02-04 2013-04-04  <NA> 
4 2008-02-04 2013-09-06 2013-09-19 
5 2008-02-04 2014-08-14 2014-08-21 

我想重新安排他们在以下位置。会发生什么事情，我把行A的值替换为前一行的C值。并且在前面的行C是NA的情况下，比从前面的行B的值被取出并放置到当前的a中。

  a   b   c 
1 2008-02-04 2010-01-25 2010-01-29 
2 2010-01-29 2012-04-13 2012-04-16 
3 2012-04-16 2013-04-04  <NA> 
4 2013-04-04 2013-09-06 2013-09-19 
5 2013-09-19 2014-08-14 2014-08-21 

到目前为止，我已经有解决这个for循环：

n <- nrow(test) 
if (n > 1) { 
    for (i in 1:(n - 1)) { 
    empty <- is.na(test$c[i]) 
    if (empty) 
     test$a[i + 1] <- test$b[i] 
    else 
     test$a[i + 1] <- test$c[i] 
    } 
} 

我想知道是否有使用dplyr包来做到这一点任何更快的方法。我想用ifelse语句使用mutate，但我不知道如何为我想要更改的变量选择i + 1。我tryed做到以下几点：

test %>% mutate(a = if_else(is.na(lag(c, n = 1)), 
          true = lag(b, n = 1), 
          false = lag(c, n = 1), 
          missing = a)) 

但这始终返回NA的第一个项目中排：

  a   b   c 
1  <NA> 2010-01-25 2010-01-29 
2 2010-01-29 2012-04-13 2012-04-16 
3 2012-04-16 2013-04-04  <NA> 
4 2013-04-04 2013-09-06 2013-09-19 
5 2013-09-19 2014-08-14 2014-08-21 

Answer 1

尝试dplyr::coalesce。它返回它的参数逐个分量中的第一个非NA值：

test %>% mutate(a = coalesce(lag(c), lag(b), a)) 

捐赠：

  a   b   c 
1 2008-02-04 2010-01-25 2010-01-29 
2 2010-01-29 2012-04-13 2012-04-16 
3 2012-04-16 2013-04-04  <NA> 
4 2013-04-04 2013-09-06 2013-09-19 
5 2013-09-19 2014-08-14 2014-08-21