使用纬度和经度找出POI（2公里以内）

1 回答

• 5

  如果您的兴趣点未知并且您需要找到它们，则可以通过我的 googleway 包使用Google的API（正如您在评论中所建议的那样） . 您需要一个有效的API密钥才能实现此目的 .

  由于API一次只能接受一个请求，因此您需要一次迭代一行数据 . 为此，您可以使用您最喜欢的循环方法

  library(googleway) ## using v2.4.0 on CRAN
  
  set_key("your_api_key")
  
  lst <- lapply(1:nrow(df), function(x){
  
    google_places(search_string = "Hospital", 
                  location = c(df[x, 'lat'], df[x, 'lon']),
                  radius = 2000)
  
  })
  

  lst 现在是一个包含查询结果的列表 . 例如，它为第一行数据返回的医院名称是

  place_name(lst[[1]])
  
  # [1] "Jadhav Hospital"                                                
  # [2] "Poona Hospital Medical Store"                                   
  # [3] "Sanjeevan Hospital"                                             
  # [4] "Suyash Hospital"                                                
  # [5] "Mehta Hospital"                                                 
  # [6] "Deenanath Mangeshkar Hospital"                                  
  # [7] "Sushrut Hospital"                                               
  # [8] "Deenanath Mangeshkar Hospital and Research Centre"              
  # [9] "MMF Ratna Memorial Hospital"                                    
  # [10] "Maharashtra Medical Foundation's Joshi Multispeciality Hospital"
  # [11] "Sahyadri Hospitals"                                             
  # [12] "Deendayal Memorial Hospital"                                    
  # [13] "Jehangir Specialty Hospital"                                    
  # [14] "Global Hospital And Research Institute"                         
  # [15] "Prayag Hospital"                                                
  # [16] "Apex Superspeciality Hospital"                                  
  # [17] "Deoyani Multi Speciality Hospital"                              
  # [18] "Shashwat Hospital"                                              
  # [19] "Deccan Multispeciality Hardikar Hospital"                       
  # [20] "City Hospital"
  

  ---

  您还可以在 Map 上查看它们

  set_key("map_api_key", api = "map")
  
  
  ## the lat/lon of the returned results are found through `place_location()`
  # place_location(lst[[1]])
  
  df_hospitals <- place_location(lst[[1]])
  df_hospitals$name <- place_name(lst[[1]])
  
  google_map() %>%
    add_circles(data = df[1, ], radius = 2000) %>%
    add_markers(data = df_hospitals, info_window = "name")
  

  

  注意：

  • Google的API每天每个密钥限制为2,500次查询，除非您支付高级帐户 .

  回复于 2024-05-15T17:06:25+08:00