R/역대 - 나는 에티켓을 따르지 않는 경우

Question

첫 번째 질문은 그래서 사과를 유래하는 시간 범위로 data.frame 태그 ... 나는 다음과 df 유사한 테이블이

:

subject_id date_time 
1   1999-10-20 19:08:00 
2   1983-03-16 00:28:14 
.... 

을

나는 이벤트의 날짜를 표시하기 위해 더 많은 열을 추가하려고하는데 (나는 wday을 사용하여 알아 냈다) 이벤트가 근무 시간 (예 : 0800-1700)인지 여부에 대한 추가 플래그가 필요합니다. 지금까지 나는

df$hour = as.numeric(format(df$date_time, "%H")) 

사용 DATE_TIME에서 시간을 추출 할 수 있지만 df$hour에 (시간) 0 또는 1을 기반 조건이 될 것이다 df의 끝 부분에 열을 추가하기 위해 사투를 벌인거야. 누구든지 올바른 방향으로 나를 가리킬 수 있을까요? 감사!

Answer 1

이미 chron을 사용하고 있기 때문에 :

library(dplyr) 
library(chron) 
df <- df%>% mutate(Hour = hours(date_time), Value = ifelse((Hour > 7 & Hour < 18), 0, 1))