rbind.fill仅返回“NA”列

Question

我正在使用以下代码来获取我的“信号”列中的时间序列之间的差异，并创建一个包含该列的新列“Activity”。如果信号比X强，那么在新列中将产生1，如果较弱，那么将产生0.如果我正在考虑每个值与下一个值之间的差异，显然将留下比“信号”少一行的行， 。

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。

Answer 1

你的代码适合我。但我想（只是一个猜测，因为你没有创建一个可重复的例子与预期的输出）你想要的东西类似：

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