сравнить переменную даты со списком дат

Question

У меня есть df с переменной datetime (с lubridate)

     str(raw_data$date)
 POSIXct[1:37166], format: "2016-11-04 09:12:38" "2016-11-04 09:04:08" "2016-11-04 09:04:14" "2016-11-04 09:08:01" "2016-11-04 09:11:56" ...

и список дат для школьного семестра

vsdate<- c("2017/01/30","2017/03/31","2017/04/18","2017/06/30","2017/07/17","2017/09/22","2017/10/09","2017/12/22","2018/01/30","2018/03/29","2018/04/16","2018/06/29","2018/07/16","2018/09/21","2018/10/08","2018/12/21")

vsdate <- as_date(vsdate)

Я хочу сравнить, если датыв списке между датами в raw_data.Я сделал это ниже, но я не могу заставить его работать в тидиверсе:

    vsdate<- c("2017/01/30","2017/03/31","2017/04/18","2017/06/30","2017/07/17","2017/09/22","2017/10/09","2017/12/22","2018/01/30","2018/03/29","2018/04/16","2018/06/29","2018/07/16","2018/09/21","2018/10/08","2018/12/21")

vsdate <- as.Date(vsdate)

raw_data$Vic.School.Term=0
raw_data[raw_data$date<=vsdate[2]& raw_data$date>=vsdate[1],"Vic.School.Term"]<-1 
raw_data[raw_data$date<vsdate[4]& raw_data$date>=vsdate[3],"Vic.School.Term"]<-1 
raw_data[raw_data$date<vsdate[6]& raw_data$date>=vsdate[5],"Vic.School.Term"]<-1 
raw_data[raw_data$date<vsdate[8]& raw_data$date>=vsdate[7],"Vic.School.Term"]<-1 
raw_data[raw_data$date<=vsdate[10]& raw_data$date>=vsdate[9],"Vic.School.Term"]<-1 
raw_data[raw_data$date<vsdate[12]& raw_data$date>=vsdate[11],"Vic.School.Term"]<-1 
raw_data[raw_data$date<vsdate[14]& raw_data$date>=vsdate[13],"Vic.School.Term"]<-1 
raw_data[raw_data$date<vsdate[16]& raw_data$date>=vsdate[15],"Vic.School.Term"]<-1 

, и вот моя неудачная попытка в тидиверсе:

    raw_data<- raw_data <- mutate(school.term=case_when(
   between(date,vsdate[1],vsdate[2] ~ 1)))
Error in between(date, vsdate[1], vsdate[2] ~ 1) : 
  Expecting a single value: [extent=3].

Спасибо!

Answer 1

Ваша функция between закрыта неправильно.Подходящая подпись для него - between(value,left, right), и у вас есть between(value, left, right ~1).Ниже приведены первые несколько случаев:

library(dplyr)
library(lubridate)
raw_data <- data.frame( date = c("2016-11-04 09:12:38", "2016-11-04 09:04:08",
                                 "2016-11-04 09:04:14", "2016-11-04 09:08:01",
                                 "2016-11-04 09:11:56", "2017-02-15 09:10:01",
                                 "2017-05-01 10:00:00")
)



raw_data %>% mutate(date = ymd_hms(date)) -> raw_data

str(raw_data)

vsdate<- ymd(c("2017/01/30","2017/03/31","2017/04/18","2017/06/30",
           "2017/07/17","2017/09/22","2017/10/09","2017/12/22",
           "2018/01/30","2018/03/29","2018/04/16","2018/06/29",
           "2018/07/16","2018/09/21","2018/10/08","2018/12/21"))

str(vsdate)

raw_data %>% mutate(school.term = case_when(between(as.Date(date), vsdate[1], vsdate[2]) ~1, 
                                            between(as.Date(date), vsdate[3], vsdate[4]) ~1, 
                                            TRUE ~ 0)

                 date school.term
1 2016-11-04 09:12:38           0
2 2016-11-04 09:04:08           0
3 2016-11-04 09:04:14           0
4 2016-11-04 09:08:01           0
5 2016-11-04 09:11:56           0
6 2017-02-15 09:10:01           1
7 2017-05-01 10:00:00           1

Также обратите внимание на функцию as.Date в between.Это позволяет сравнивать POSIXct и обычный date формат в R