R : 날짜를 기준으로 데이터 추출, "날짜가 낮은보다가"

Question

나는이 같은 각 date 두 개의 값으로 데이터 집합을 가지고 :

date  x y 
1 2013-05-01 1 2 
2 2013-05-02 2 2 
3 2013-05-03 3 2 

date 패키지 lubridate를 사용하여 형식 as.Date입니다.

이제는 의 값을 사용하고 싶습니다. 특정 시간 범위를 제외하고는 x의 값을 사용하고 싶습니다.

mean=(x+y)/2 

newdata=ifelse((data$date < 2013-10-01 | date$date > 2014-04-09), mean, x) 

하지만 경우

그냥 모든 날짜의 mean를 취할 것입니다 :

나는 다음 시도했다.

날짜에 관계를 더 크게 또는 작게 사용할 수 있습니까? 이 작업을 수행하는 방법에 대한 제안 사항이 있으십니까? 이런 일에 대해 어떻게

Answer 1

코드가 제대로 작동하는 것 같습니다. 비교 값을 날짜로 형변환하지 않는 것 같습니다. 또한 비교를 위해 사용한 날짜는 사용자가 제공 한 데이터 프레임의 날짜를 제외하지 않으므로 매번 평균을 선택해야합니다.

library(lubridate) 
date <- as.Date(c('2013-05-01','2013-05-02','2013-05-03')) 
x <- c(1,2,3) 
y <- c(2,2,2) 
mean <- (x + y)/2 
newdata = ifelse((df$date < as.Date('2013-05-02') | df$date > as.Date('2014-04-09')),mean,x) 
newdata 

조건의 날짜를 좀 더 선택적으로 변경했으며 1.5 2.0 3.0을 받았습니다. 그것은 첫 번째 값을 mean에서 선택하고 나머지는 x에서 ifelse에 사용 된 조건과 일치시킵니다.

Answer 2

사전에

감사 :

library(lubridate) 
library(data.table) 
## 
set.seed(123) 
Data <- data.frame(
    date=as.Date(ymd(20130904))+0:364, 
    x=as.numeric(sample(1:3,365,replace=TRUE)), 
    y=as.numeric(sample(1:3,365,replace=TRUE))) 
setDT(Data) 
## 
xSpan <- seq.Date(
    from=as.Date("2013-10-01"), 
    to=as.Date("2014-04-09"), 
    by="day") 
## 

이을 편집은 - 난 그냥 일 연속 시퀀스로 xSpan을 정의 date

Data[,z:=ifelse(
    date %in% xSpan, 
    x, 
    mean(c(x,y))), 
    by=date] 
## 
> head(Data) 
     date x y z 
1: 2013-09-04 1 3 2.0 
2: 2013-09-05 3 1 2.0 
3: 2013-09-06 2 1 1.5 
4: 2013-09-07 3 2 2.5 
5: 2013-09-08 3 2 2.5 
6: 2013-09-09 1 2 1.5 
> head(subset(Data, date %in% xSpan)) 
     date x y z 
1: 2013-10-01 2 3 2 
2: 2013-10-02 1 3 1 
3: 2013-10-03 1 1 1 
4: 2013-10-04 3 1 3 
5: 2013-10-05 3 1 3 
6: 2013-10-06 3 1 3 

에 의해 그룹에 잊었다 어떤 함수가 사용되는지 (예제에서, x). 이 시간 범위에 포함되지 않은 날짜는 mean을 사용하여 z의 값을 결정합니다.