可以通过以下步骤实现:
sf
包中的st_as_sf()
函数将WKT点数据转换为sf
对象。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))
sf
包中的st_coordinates()
函数提取几何对象的坐标。# 提取经度坐标
longitude <- st_coordinates(sf_point)[, "X"]
base
包中的floor()
和round()
函数。# 拆分整数和小数部分
integer_part <- floor(longitude)
decimal_part <- round((longitude - integer_part) * 1000000)
综上所述,从R中WKT点数据中提取并拆分经度坐标的完整代码如下:
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
这个方法适用于从WKT点数据中提取并拆分经度坐标,可以用于处理地理空间数据、地图可视化等场景。对于R语言的云计算相关产品和产品介绍,您可以参考腾讯云的R语言云函数(SCF)服务,该服务提供了在云端运行R语言脚本的能力,详情请参考腾讯云SCF的官方文档:腾讯云SCF产品介绍。
领取专属 10元无门槛券
手把手带您无忧上云