R语言中经纬度度分秒转小数

使用R语言将经纬度度分秒转为小数。

原始**度分秒**数据----------->>>>>>>> -----转换后的数据如图：

R代码如下：

rm(list = ls())# 安装加载相应的包
library(xlsx)
library(stringr)
library(magrittr)
library(sp)##### 公式开始 #####
dms2dd <- function(dms, EN="E"){  # EN默认设置为E，在DMS类中有E和N方向。在这里我们只需将度分秒转为数字，所以不必考虑方向的问题。char.dms <- str_c(dms,"E") %>%    # 并不影响最后的结果str_replace(replacement = "d", pattern = "°") %>% # 这里用英文符号'和"替换了中文符号′与″str_replace(replacement = "'", pattern = "′") %>% # 注意符号是中文字符还是英文字符str_replace(replacement = "\"", pattern = "″")    # "与″ '与′ 是不一样的。 DMS类中需要英文字符dms <- char2dms(char.dms)d <- dms@deg # 从dms类中获取度、分、秒的数值m <- dms@mins <- dms@secdd <- d + m/60 + s/3600 # 进行数据转换return(dd)
}
##### 公式结束 ###### 测试 ----------------------------------------------------------------------# 1.导入数据
lonlat <- xlsx::read.xlsx(file = "lonlat.xlsx", sheetIndex = 1, header = T) # 2.数据度分秒转数字
templist <- lapply(lonlat, dms2dd)
outlonlat <- do.call(cbind, templist)# 3.输出结果
write.xlsx(outlonlat, file = "lonlat_new.xlsx", row.names = F)

这里主要利用sp包中DMS类中的相关方法。有兴趣的小伙伴可以看下例如：char2dms()和dd2dms()等相关函数。

首先利用stringr包中的字符串替换函数str_replace()，将度分秒的符号直接转为DMS类中可以识别的符号，然后进行数据的转换。

R语言中经纬度度分秒转小数相关推荐

c语言调色板5个参数,R语言中的颜色以及色板
可视化数据时,色彩往往是最欠考虑的因素.的确,在一个图中,数据的选择和图表类型的确定才是最重要,最需要确定的因素.但是,适当的选择颜色不仅仅能使数据图的阅读者赏心悦目,而且有助于图中数据关系的呈现,使 ...
用计算机怎么计算r角度,R语言中的数学计算
原标题:R语言中的数学计算前言 R是作为统计语言,生来就对数学有良好的支持,一个函数就能实现一种数学计算,所以用R语言做数学计算题特别方便.如果计算器中能嵌入R的计算函数,那么绝对是一种高科技产品. ...
R语言中的数学计算（转载）
R语言中的数学计算关于作者: 张丹(Conan), 程序员Java,R,PHP,Javascript weibo:@Conan_Z blog: http://blog.fens.me email: ...
R语言中的地理/投影坐标系统（下）[翻译]
原文链接:https://mgimond.github.io/Spatial/coordinate-systems-in-r.html. 译文分上.下两篇,这里为下篇. ❝ 「译者注」:在原文的本部分 ...
R语言中使用pkgbuild::find_rtools查看是否有Rtools、使用Sys.which函数查看make是否存在、如果没有则安装、使用writeLines函数绑定R和Rtools
R语言中使用pkgbuild::find_rtools(debug = TRUE)查看是否有Rtools.使用Sys.which函数查看make是否存在.如果没有则安装Rtools.使用writeLi ...
R语言中如何计算C-Statistics？几种计算方法详解
R语言中如何计算C-Statistics?几种计算方法详解目录 R语言中如何计算C-Statistics? #包导入 #数据加载编码
R语言format函数保留几位小数实战
R语言format函数保留几位小数实战目录 R语言format函数保留几位小数实战 #基本语法 #仿真数据 #保留几位小数
r语言 rgl 强制过程中_一个R语言中操纵矢量空间数据的标准化工具—sf
注: 本文是R语言sf包的核心开发者和维护者--来自德国明斯特大学的地理信息学教授:Edzer Pebesma 的一篇关于sf包的简介,发表于2018年7月的R语言期刊,主要讲述了sf的定位.功能. ...
R语言中的特殊值 NA NULL NaN Inf
这几个都是R语言中的特殊值,都是R的保留字, NA:Not available 表示缺失值用 is.na() 来判断是否为缺失值 NULL:表示空值,即没有内容用 is.null() 来判 ...
R开发(part8)--应用R语言中的函数环境空间
学习笔记,仅供参考,有错必纠文章目录 R开发应用R语言中的函数环境空间 R语言的函数环境空间封闭环境绑定环境运行环境调用环境函数环境空间图示 R开发应用R语言中的函数环境空间 R语言的 ...

R语言中经纬度度分秒转小数

R语言中经纬度度分秒转小数相关推荐

最新文章

热门文章