基于 for 循环向 R 向量添加值

Question

我有一个数据框，其中包含交通系统上的 wifi 下载带宽和 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])}
  }

在这里，我基本上是说如果纬度值上升，那么车辆正在向北移动，因此将该位置的带宽值输入到movingnorth向量中。我希望仅将带宽向量中的一部分值添加到移动北向量中，但会添加所有 2800 个值。我在这里做错了什么？

Answer 1

利用 R 的矢量化操作。首先我们使用diff来查找latitude的连续元素之间的变化

latitude_change <- diff(df$latitude)

现在我们有一个长度比latitude 的长度小1 的向量。方向发生在测量之间，所以这是有道理的。假设我们不会确定第一次测量的方向。所以这意味着如果latitude_change[i] > 0，那么火车的北行时间是i - 1。

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

我保留df 的这一部分，因为它是相关信息，所以桌子是放置它的最佳位置。

Answer 2

正如 lmo 所说，您想使用 seq_along(latitude) 或 1:length(latitude)，它们返回索引而不是 latitude 中的实际元素。

另外，您可能需要仔细检查latitude[y+1] 是否正确。当前语法假定数据中纬度值的顺序是从最新到最旧。从您提供的信息中无法知道这是否正确，但可能正好相反。

正如 Frank 所指出的，您正在循环增长您的向量，这是一种不好的做法（因为它不能很好地扩展并且对于大型对象变得非常慢）。 Nathan Werth 的回答建议使用矢量化实现。