從坐標數據轉換為R中的經度和緯度？

Question

我一直在使用以下代碼讀取普查區數據並為每個普查區生成質心數據。 我想通過Foursqaure API進行一些采樣，從中獲取經度和緯度，該API需要緯度和經度。 我注意到這段代碼給了我與緯度經度不同的坐標系。 是否知道無論是轉換坐標還是通過其他函數，我如何能夠提取經度？

#load libraries-----------------------------
library(rgdal)
library(sp)
library(GISTools)
library(ggplot2)

#load census tact file------------------------
tracts = readOGR("nycb2010.shp", layer="nycb2010")

#extract centroids
centroids = as.data.frame(getSpPPolygonsLabptSlots(tracts))

#map new data
ggplot() +  geom_polygon(data=tracts, aes(x=long, y=lat, group=group), fill="black", colour="grey90", alpha = 1)+
  geom_point(data=centroids, aes(x=V1, y=V2, group = 1, color = 'red'), size = .1)

Answer 1

您可以使用功能spTransform更改空間數據的坐標系，如下所示：

library(sp)
library(rgdal)

lat_long = CRS("+init=epsg:4326") 
tracts_lat_long <- spTransform(tracts, lat_long)

proj4string(tracts_lat_long)
[1] "+init=epsg:3035 +proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"