Question

我有一个带有Latitude（Lat）列的数据帧（df），我需要匹配相应的Longitude值（基于另一个数据集中的关系）。新列名称为“Long_matched”。

在这里，我试图在相应行的'Long_matched'列中写一个新值到-33.9238和-33.9236之间的纬度。 'Lat'中的数据有更多小数位（例如：-33.9238026666667，-33.9236026666667等）。由于我将此代码应用于同一地理位置的多个数据集（因此长小数会略有不同），我想编写落在0.0002度范围内的经度值。

我尝试过的一些代码尝试包括：

df$Long_matched <- ifelse(df$Lat< -33.9236 & df$Lat> -33.9238, 151.2279 , "N/A")

或

df$Long_matched[df$Lat< -33.9236 & df$Lat> -33.9238] <- 151.2279

我认为我需要使用for循环来循环遍历行和if语句，但努力想出这个 - 任何帮助都将不胜感激！

结果输出应如下所示：

Lat                   Long_matched
-33.9238026666667     151.2279
-33.9236026666667     (new long value will go here)

Answer 1

评论中所说的一切都适用，但这是一个可以尝试的技巧：在以下代码中，您将需要用数字替换文本。

Latitude_breaks <- seq(min_latitude, max_latitude, 0.0002) # you need to replace `min_latitude`, `max_latitude`, and `increment` with numbers
Longitude_values <- seq(first, last, increment) # you need to replace `first`, `last` and `increment` with numbers
df <- within(df, {
  # make a categorical version of `Lat`
  Lat_cat <- cut(Lat, Latitude_breaks)
  Long_matched <- Longitude_values[Lat_cat]
})

一些注意事项：

min_latitude和min_latitude + 1之间的值将分配给首先标记为Longitude的值。
Latitude_beaks的长度应该比Longitude_values的长度多一个。
Lat之外的Latitude_breaks值将成为NAs。

这通过利用因子的一个很好的特征来起作用 - 它们被存储为整数。因此我们可以使用它们来索引另一个向量 - 在本例中为Longitude_values。

循环遍历数据帧行并在新列中添加值（R）

1 个答案: