1、
> library(REmap)
> options(remap.ak = "此处输入个人秘钥")
> city_vec = c("Beijing","Haerbin","Shanghai","Guangzhou")
> get_city_coord("Shanghai")
[1] 121.48054 31.23593
> get_geo_position (city_vec)
lon lat city
1 116.4134 39.91092 Beijing
2 126.5416 45.80882 Haerbin
3 121.4805 31.23593 Shanghai
4 113.2714 23.13534 Guangzhou