如何通過ggmap包獲取郵政編碼數據集R

Question

通過使用geocode('Zip')我可以獲取位置座標。 給定座標怎麼樣，我可以得到該位置的郵政編碼嗎？ 例如

geocode('130022，長春') 

這給我的家鄉座標。 130022是郵政編碼，長春是城市。通過這樣做，我想獲得長春市獨特的地理座標，這是（125.35，43.86364）。 如果我給出座標，我該如何獲取郵政編碼數據呢？

Answer 1

使用revgeocode()

revgeocode(location = c(125.35, 43.8634)) 
Information from URL : http://maps.googleapis.com/maps/api/geocode/json?latlng=43.8634,125.35&sensor=false 
[1] "Jun Zhuan Hu Tong, Nanguan Qu, Changchun Shi, Jilin Sheng, China, 130022" 

如果你想更詳細，說明output = 'all'

res <- revgeocode(location = c(125.35, 43.8634), output = 'all') 

str(res) 
# List of 2 
# $ results:List of 6 
# ..$ :List of 5 
# .. ..$ address_components:List of 6 
# .. .. ..$ :List of 3 
# .. .. .. ..$ long_name : chr "Jun Zhuan Hu Tong" 
# .. .. .. ..$ short_name: chr "Jun Zhuan Hu Tong" 
# .. .. .. ..$ types  : chr "route" 
# .. .. ..$ :List of 3 
# .. .. .. ..$ long_name : chr "Nanguan Qu" 
# .. .. .. ..$ short_name: chr "Nanguan Qu" 
# .. .. .. ..$ types  : chr [1:3] "political" "sublocality" "sublocality_level_1" 
# .. .. ..$ :List of 3 
# .. .. .. ..$ long_name : chr "Changchun Shi" 
# .. .. .. ..$ short_name: chr "Changchun Shi" 
# .. .. .. ..$ types  : chr [1:2] "locality" "political" 
# .. .. ..$ :List of 3 
# .. .. .. ..$ long_name : chr "Jilin Sheng" 
# .. .. .. ..$ short_name: chr "Jilin Sheng" 
# .. .. .. ..$ types  : chr [1:2] "administrative_area_level_1" "political" 
# ... etc