1

我正在使用以下代码来获取“信号”列中我的时间序列之间的差异,并创建一个新列“活动”,其中包含该列。如果信号比 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 时,它返回 df,新列“Activity”仅包含“NA”。

4

1 回答 1

0

你的代码对我来说很好。但我猜(只是一个猜测,因为您没有创建具有预期输出的可重现示例)您想要类似:

transform(df, Activity = c(0,ifelse(diff(Signal)>=4, 1, 0)))
于 2014-01-17T11:11:59.033 回答