R中将HH：MM：SS转换为小时（超过24小时）

Question

我想在R里转换超过24小时的小时数。

例如，我有一个包含小时和分钟的数据框，如[HH：MM]：

[1]“111：15”“221：15”“111：15”“221：15”“42:05”

我希望它们能在几个小时内转换成这样：

“111.25”“221.25”“111.25”“221.25”“42.08333333”

as.POSIXct() 

功能适用于一般用途，但不能超过24小时。

Answer 1

你可以用分割字符串strsplit和使用sapply转换所有值。

vec <- c("111:15", "221:15", "111:15", "221:15", "42:05")

sapply(strsplit(vec, ":"), function(x) {
  x <- as.numeric(x)
  x[1] + x[2] / 60
})

结果：

[1] 111.25000 221.25000 111.25000 221.25000  42.08333

Answer 2

我只想用正则表达式解析字符串。 抓住之前的位:然后加上后面的位:除以60

> foo = c("111:15", "221:15", "111:15", "221:15", "42:05")
> foo
[1] "111:15" "221:15" "111:15" "221:15" "42:05" 
> as.numeric(gsub("([^:]+).*", "\\1", foo)) + as.numeric(gsub(".*:([0-9]{2})$", "\\1", foo))/60
[1] 111.25000 221.25000 111.25000 221.25000  42.08333

Answer 3

另一种可能性是矢量化函数，例如：

FUN <- function(time){
    hours <- sapply(time,FUN=function(x) as.numeric(strsplit(x,split=":")[[1]][1]))
    minutes <- sapply(time,FUN=function(x) as.numeric(strsplit(x,split=":")[[1]][2]))
    result <- hours+(minutes/60)
    return(as.numeric(result))
}

使用strsplit提取小时和分钟的地方，然后将分数除以60后得到总和。

然后你可以使用这样的函数：

FUN(c("111:15","221:15","111:15","221:15","42:05"))

[1] 111.25000 221.25000 111.25000 221.25000  42.08333

Answer 4

strapplyc这里是一个在gsubfn包中使用strapplyc的解决方案。 它将匹配传递给每个带括号的正则表达式（即小时和分钟）到第三个参数中描述的函数。 该函数可以使用通常的R函数表示法指定，它还支持使用公式（此处使用）的简短形式，其中公式的右侧是函数体，左侧表示参数，默认为自由右侧的变量（ m ， h ）。 我们假设原始字符向量是ch 。

library(gsubfn)
strapply(ch, "(\\d+):(\\d+)", ~ as.numeric(h) + as.numeric(m)/60, simplify = TRUE)

数字处理另一种方法是用a替换： 并以数字方式操纵它到我们想要的东西：

num <- as.numeric(chartr(":", ".", ch))
trunc(num) + 100 * (num %% 1) / 60

sub这是另一种方法：

h <- as.numeric(sub(":.*", "", ch))
m <- as.numeric(sub(".*:", "", ch))
h + m / 60

上面的代码给出了一个数字结果，但是如果需要字符结果，我们可以将每个代码包装在as.character(...)中。

函数read.table

as.matrix(read.table(text = ch, sep = ":")) %*% c(1, 1/60)

评估/解析 。 这一个将每一个操作成一个R表达式，并对其进行评估。 这个很短，但使用eval经常不赞成：

sapply(parse(text = sub(":", "+(1/60)*", ch)), eval)

增加了额外的解决方案。