R - 存储循环输出以进行反向地理编码（Google API）

下面是一个使用R语言进行反向地理编码的示例代码：

library(ggmap)

# 设置Google API密钥
register_google(key = "your_api_key")

# 设置经纬度坐标
lat <- c(40.7128, 34.0522)
lon <- c(-74.0060, -118.2437)

# 创建一个空的数据框来存储结果
result <- data.frame()

# 循环进行反向地理编码
for (i in 1:length(lat)) {
  # 调用reverse_geocode函数获取地理信息
  location <- reverse_geocode(c(lon[i], lat[i]))
  
  # 提取需要的地理信息
  address <- location$results[[1]]$formatted_address
  city <- location$results[[1]]$address_components$locality
  country <- location$results[[1]]$address_components$country
  
  # 将结果添加到数据框中
  result <- rbind(result, data.frame(lat = lat[i], lon = lon[i], address = address, city = city, country = country))
}

# 打印结果
print(result)

在这个示例中，我们首先加载了ggmap包并注册了Google API密钥。然后，我们设置了要进行反向地理编码的经纬度坐标。接下来，我们创建了一个空的数据框来存储结果。

然后，我们使用一个循环迭代经纬度坐标，并使用reverse_geocode函数来获取每个坐标的地理信息。我们从结果中提取所需的地理信息，例如地址、城市和国家，并将其添加到结果数据框中。

最后，我们打印出结果数据框，以查看反向地理编码的结果。请注意，你需要将代码中的your_api_key替换为你自己的Google API密钥。