lons <- geo$Longitude #srtm1=30m*30m,最高分辨率。 ele=elevation(latitude = lats, longitude = lons, elevation_model = "srtm1",username = user) write.csv(ele, "output.csv")