从R中WKT点数据中提取并拆分经度坐标

library(sf)

# 示例WKT点数据
wkt_point <- "POINT (120.123456 30.987654)"

# 将WKT点数据转换为sf对象
sf_point <- st_as_sf(data.frame(id = 1, wkt = wkt_point), 
                     wkt = "wkt", 
                     crs = st_crs(4326))

# 提取经度坐标
longitude <- st_coordinates(sf_point)[, "X"]

# 拆分整数和小数部分
integer_part <- floor(longitude)
decimal_part <- round((longitude - integer_part) * 1000000)

library(sf)

wkt_point <- "POINT (120.123456 30.987654)"
sf_point <- st_as_sf(data.frame(id = 1, wkt = wkt_point), 
                     wkt = "wkt", 
                     crs = st_crs(4326))
longitude <- st_coordinates(sf_point)[, "X"]
integer_part <- floor(longitude)
decimal_part <- round((longitude - integer_part) * 1000000)

# 输出结果
integer_part
decimal_part