1

次のコードを使用して、「シグナル」列の時系列の違いを取得し、それを含む新しい列「アクティビティ」を作成しています。シグナルが X よりも強い場合は、新しい列に 1 が生成され、弱い場合は 0 が生成されます。各値と次の値の差をとっているので、明らかに「シグナル」よりも 1 行少ない行が残ります。 .

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 が返されます。

4

1 に答える 1

0

あなたのコードは私にとってはうまくいきます。しかし、私は推測します（予想される出力で再現可能な例を作成しないため、推測にすぎません）次のようなものが必要です：

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