r - 对日期使用mutate可提供数值

This question already has answers here:

How to prevent ifelse() from turning Date objects into numeric objects

(6个答案)

4年前关闭。

我正在使用lubridate和dplyr包分别处理日期变量和创建新的日期变量。

library(lubridate)
library(dplyr)

令df为我的数据框。我有两个变量date1和date2。我想创建一个新的date变量，使其采用date1的值。如果缺少date1，则改为使用date2的值。

df <- data.frame(date1 = c("24/01/2016",NA,"22/07/2016"),
                 date2 = c("31/01/2016","09/02/2017",NA),
                 stringsAsFactors=FALSE)`

上面的命令给出:

       date1      date2
1 24/01/2016 31/01/2016
2       <NA> 09/02/2017
3 22/07/2016       <NA>

我尝试了以下我认为可以给我想要的结果的方法。但是，新的date变量为数字。

df %>% 
   mutate_at(vars(date1,date2),dmy) %>% 
   mutate(date=ifelse(is.na(date1),date2,date1))

       date1      date2  date
1 2016-01-24 2016-01-31 16824
2       <NA> 2017-02-09 17206
3 2016-07-22       <NA> 17004

我想:

       date1      date2       date
1 2016-01-24 2016-01-31 2016-01-24
2       <NA> 2017-02-09 2017-02-09
3 2016-07-22       <NA> 2016-07-22

我该如何解决这个问题？

最佳答案

使用dplyr::if_else代替base::ifelse，根据?if_else，该类型更安全，

Compared to the base ifelse(), this function is more strict. It checks that true and false are the same type. This strictness makes the output type more predictable, and makes it somewhat faster.

df %>% 
      mutate_at(vars(date1,date2),dmy) %>% 
      mutate(date=if_else(is.na(date1),date2,date1))

#       date1      date2       date
#1 2016-01-24 2016-01-31 2016-01-24
#2       <NA> 2017-02-09 2017-02-09
#3 2016-07-22       <NA> 2016-07-22

另一种选择是使用coalesce，如果不是date1，则从NA取值；否则，从date2取值:

df %>% 
      mutate_at(vars(date1,date2),dmy) %>% 
      mutate(date = coalesce(date1, date2))

#       date1      date2       date
#1 2016-01-24 2016-01-31 2016-01-24
#2       <NA> 2017-02-09 2017-02-09
#3 2016-07-22       <NA> 2016-07-22

如果要保留原始代码，只需将as.Date包裹在ifelse周围，因为ifelse去除了结果的类，并且仅保留基础数据，即自1970-01-01起的天数:

df %>% 
      mutate_at(vars(date1,date2),dmy) %>% 
      mutate(date=as.Date(ifelse(is.na(date1),date2,date1), origin = "1970-01-01"))

关于r - 对日期使用mutate可提供数值，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/41668795/

上一篇：facebook - 用于处理本地和社交身份验证提供程序的Mongoose用户模型

下一篇：r - 用R开头的点声明变量

相关文章：

mysql - 如何根据前一行在接下来的几行中插入值

r - R 可以将表情符号字符转换为对应的文本吗？

javascript - 验证javascript日期

PHP - codeigniter - 控制日期格式

R:显示列中具有重复元素的所有行

r - 如何使用 broom 和 dplyr 将分组数据应用于分组模型？

r - 将SNP ID映射到基因组坐标

将 R 数据表中的空白读取为缺失(NA)

c++ - 日期和当前日期之间的差异

( 和 = 之间的 R str_match 正则表达式