如何为在同一行中的另一个日期之前有一个日期的参与者筛选数据？(为注册商标)

Question

我有张桌子看起来像这样：

teamid        startdate      enddate
1              2017-07-01   2018-06-30
2              2016-07-01   2017-06-30
3              2016-07-01   2017-06-30
4              2026-07-01   2017-06-30
5              2026-07-01   2017-06-30
6              2026-07-01   2017-06-30

我如何过滤出日期，以便它只包括在开始日期之前有结束日期的替阿米？

Answer 1

你为什么不对这两个角色做些小把戏呢？像这样：

library(dplyr)

df1<-read.table(text = "teamid  startdate   enddate
1   2017-07-01  2018-06-30
2   2016-07-01  2017-06-30
3   2016-07-01  2017-06-30
4   2026-07-01  2017-06-30
5   2026-07-01  2017-06-30
6   2026-07-01  2017-06-30",stringsAsFactors = FALSE, header = TRUE)


df1$tempt.startdate<-as.numeric(gsub('-',"",df1$startdate,fixed = TRUE))
df1$tempt.enddate<-as.numeric(gsub('-',"",df1$enddate,fixed = TRUE))

df1[df1$tempt.startdate>df1$tempt.enddate,] %>%
  select(teamid,startdate,enddate)

其结果是：

  teamid  startdate    enddate
4      4 2026-07-01 2017-06-30
5      5 2026-07-01 2017-06-30
6      6 2026-07-01 2017-06-30