Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/80.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/date/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
比较R create new列中的两个日期_R_Date_Comparison - Fatal编程技术网

比较R create new列中的两个日期

比较R create new列中的两个日期,r,date,comparison,R,Date,Comparison,我试图在数据框中创建一个列,该列表示如果日期大于今天,则它等于0,否则等于1: Data$Date_Flag <- ifelse(Data$D1_Date > Sys.Date(),0, ifelse(Data$D1_Date <= Sys.Date(),1)) Data$Date\u标志Sys.Date(),0, ifelse(数据$D1_Date只需否定逻辑测试: Data$Date_Flag <- !(Dat

我试图在数据框中创建一个列,该列表示如果日期大于今天,则它等于0,否则等于1:

Data$Date_Flag <- ifelse(Data$D1_Date > Sys.Date(),0,
                            ifelse(Data$D1_Date <= Sys.Date(),1))
Data$Date\u标志Sys.Date(),0,

ifelse(数据$D1_Date只需否定逻辑测试:

Data$Date_Flag <- !(Data$D1_Date > Sys.Date() )
Data$Date\u标志Sys.Date())

您不需要第二个ifelse
ifelse(Data$D1\u Date>Sys.Date(),0,1)
或者干脆
as.integer(谢谢,这两种解决方案都很有效)。
Data$Date_Flag <- !(Data$D1_Date > Sys.Date() )