您可以使用以下代码
library(sp)
df <- data.frame(longitude=c(4585434,4588904,4586694),
latitude=c(430060.8,430960.8,432427.2),
street=c("74 JOSEP SERRANO", "30 LLOBERA","4 SANT ILDEFONS"),
number=c(45,68,34))
#Convert the data frame to SpatialPointsDataFrame
coordinates (df)= ~longitude + latitude
#Assign a projection to it
proj4string(df) <- CRS("+proj=utm +zone=10")
#Projection transformation
longlats <- spTransform(df, CRS("+proj=longlat"))
#Convert it to data frame
longlats.df <- as.data.frame(longlats)
如果你想使用来实现整个事情sf
包,可以使用下面的代码
df <- data.frame(longitude=c(4585434,4588904,4586694),
latitude=c(430060.8,430960.8,432427.2),
street=c("74 JOSEP SERRANO", "30 LLOBERA","4 SANT ILDEFONS"),
number=c(45,68,34))
#Conversion of data frame to sf object
df_sf <- st_as_sf(x = df,
coords = c("longitude", "latitude"),
crs = "+proj=utm +zone=10")
#Projection transformation
sfc = st_transform(df_sf, crs = "+proj=longlat +datum=WGS84")
#Convert it to data frame
sfc_df <- as.data.frame(sfc)