"NA"의 열만 반환하는 rbind.fill

Question

다음 코드를 사용하여 "신호"열의 시간 계열을 구별하고이를 포함하는 "활동"열을 새로 만듭니다. 신호가 X보다 강하면 새로운 열에서 1이 생성되고 더 약하면 0이됩니다. 각 값과 다음 값의 차이를 가져 오려면 분명히 "신호"행보다 하나 적은 행이 남게됩니다. . 내가 rbind.fill 사용할 때

df$Signal <- as.numeric(df$Signal) 
Activity <- ifelse(diff(df$Signal)>=4, 1, 0) 
Activity <- as.data.frame(Activity) 
df <- rbind.fill(df, Activity) 

그러나, 그것은 단지 "NA"를 포함하는 새 열 '활동'과 df 명령 반환합니다.

Answer 1

코드가 올바르게 작동합니다. 하지만 다음과 같이 원하는 결과를 얻을 수있는 재현 가능한 예제를 만들지 않으므로 추측합니다.

transform(df, Activity = c(0,ifelse(diff(Signal)>=4, 1, 0)))