forループに基づいたRベクトルへの値の追加

Question

私は、交通システムにWi-Fiダウンロード帯域幅とGPSデータ（緯度と経度）を含むデータフレームを持っています。私は平均的な帯域幅は、車両が北に移動しているとき、それが南に移動しているとき何であるかをデータから判断したい。

（DFから帯域幅及び緯度値）

bandwidth <- df$bandwidth 

latitude <-df$latitude 

（これらの両方は2800個のエントリを有する）

（車両が北または南に移動しているかどうかに応じて帯域幅の値で埋めるために、空のベクターを作成します）

movingnorth <- vector('numeric') 

movingsouth <- vector('numeric') 

（列車が北に移動している場合、帯域幅のベクトルからのデータを移動し、北ベクトルを埋める）

for(y in latitude){ 

    if(latitude[y]>= latitude[y+1]){ 
    movingnorth <- c(movingnorth, received[y])} 
    } 

ここでは、基本的には、緯度の値が上がっている場合、車両は北に移動しているため、その位置から移動する北ベクトルに帯域幅の値を入力します。私は、帯域幅ベクトルからの値の一部だけが移動ノースベクトルに追加されると期待しますが、すべての2800の値が加算されます。私はここで間違って何をしていますか？

Answer 1

Rのベクトル化演算を利用してください。まず、今、私たちは、その長さlatitudeの長さより1小さいベクトルを持っているlatitude

latitude_change <- diff(df$latitude) 

の連続する要素間の変化を見つけることがdiffを使用しています。測定の間に方向が生じるので理にかなっています。我々が最初の測定の方向を決定しないとしよう。したがって、latitude_change[i] > 0の場合は、列車は北の時刻i - 1になります。それは、関連情報ですので、私はdfのこの部分を維持しています

df$movingnorth <- c(FALSE, latitude_change > 0) 

ので表には、そのための最適な場所です。

Answer 2

seq_along(latitude)または1:length(latitude)を使用して、latitudeの実際の要素の代わりにインデックスを返すとします。

また、latitude[y+1]が正しいことを再度確認したい場合があります。現在の構文では、データの緯度値の順序が最新のものから古いものへと変化すると仮定しています。これがあなたが提供する情報から正しいかどうかを知ることはできませんが、逆の場合があります。

Frankが指摘したように、あなたはループでベクトルを成長させていますが、これは悪い習慣です（規模が大きくなく、大きなオブジェクトでは非常に遅くなるため）。 Nathan Werthの答えは、ベクトル化された実装を示唆しています。