2

I have a dataset as shown below

    Col1      Col2       Col3        CutoffDate
    12001     Yes        2008-08-15  2008-08-10
    12001     Yes        2008-08-22  2008-08-10
    12001     Yes        2008-08-10  2008-08-10
    12001     Yes        2008-08-04  2008-08-10

I am only interested in retaining the last two rows because they are less than or equal to the Cutoff Date 2008-08-10.

The final dataset should look like this

    Col1      Col2       Col3        CutoffDate
    12001     Yes        2008-08-10  2008-08-10
    12001     Yes        2008-08-04  2008-08-10

I know the subset function in R but not sure how to do this , any help is much appreciated.

Bridgeport Tucker Jr
  • 69
  • 2
  • 8

3 Answers3

8

You can just use regular comparison

dat[dat$Col3 <= dat$CutoffDate, ]
#    Col1 Col2       Col3 CutoffDate
# 3 12001  Yes 2008-08-10 2008-08-10
# 4 12001  Yes 2008-08-04 2008-08-10

Assuming Col3 and CuttoffDate are class "Date"

or maybe preferably,

with(dat, dat[Col3 <= CutoffDate, ])
Rorschach
  • 31,301
  • 5
  • 78
  • 129
3

You can use subset():

df <- data.frame(Col1=c(12001,12001,12001,12001),Col2=c('Yes','Yes','Yes','Yes'),Col3=as.Date(c('2008-08-15','2008-08-22','2008-08-10','2008-08-04')),CutoffDate=as.Date(c('2008-08-10','2008-08-10','2008-08-10','2008-08-10')));
subset(df,Col3<=CutoffDate);
##    Col1 Col2       Col3 CutoffDate
## 3 12001  Yes 2008-08-10 2008-08-10
## 4 12001  Yes 2008-08-04 2008-08-10
bgoldst
  • 34,190
  • 6
  • 38
  • 64
1

And if you are using dplyr:

library(dplyr)
df <- data.frame(Col1 = c(12001, 12001, 12001, 12001),
                 Col2 = c("Yes", "Yes", "Yes", "Yes"),
                 Col3 = as.Date(c("2008-08-15", "2008-08-22", "2008-08-10", "2008-08-04")),
                 CutoffDate = as.Date(c("2008-08-10", "2008-08-10", "2008-08-10", "2008-08-10")))

df %>% filter(Col3 <= CutoffDate)
phiver
  • 23,048
  • 14
  • 44
  • 56