我的数据帧如下所示
df <- read.table(text="
id date
1 1 2016-12-01
2 2 2017-01-02
3 4 2017-01-02
4 6 2017-01-02
5 7 2017-01-02
6 9 2017-01-02
7 10 2017-08-02
", header=TRUE)我需要的是过滤日期,其中difftime等于或小于五天。在上面的示例中,它应该是介于2-9之间的第一个it
发布于 2018-11-26 16:55:19
library(tidyverse)
library(lubridate)
df$date <- ymd(df$date)
df$flag <- ifelse(difftime(lead(df$date), df$date, units = c("days")) >=5,1,0)
df[is.na(df)] <- 0这可能就是你正在寻找的答案。
https://stackoverflow.com/questions/53477385
复制相似问题