2014-01-17 39 views
1

我正在使用以下代碼來獲取我的「信號」列中的時間序列之間的差異,並創建一個包含該列的新列「Activity」。如果信號比X強,那麼在新列中將產生1,如果較弱,那麼將產生0.如果我正在考慮每個值與下一個值之間的差異,顯然將留下比「信號」少一行的行, 。rbind.fill僅返回「NA」列

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

但是,當我使用rbind.fill時,它返回帶有僅包含「NA」的新列「Activity」的df。

回答

0

你的代碼適合我。但我想(只是一個猜測,因爲你沒有創建一個可重複的例子與預期的輸出)你想要的東西類似:

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

完美,謝謝! – user3021648