Question

我有一些mm：ss.00格式的演奏时间数据（即02：15.45或00：34.58）。 R将变量识别为一个因子，但我想将每个性能时间转换为几秒（即02：15.45到135.45）。我已经找到了答案，但似乎找不到让它工作的方法。提前谢谢。

Answer 1

使用lubridate：

period_to_seconds(hms("12:12:54"))

Answer 2

这是我多年来一直使用过的。它也是矢量化的。

toSeconds <- function(x){
   if (!is.character(x)) stop("x must be a character string of the form H:M:S")
   if (length(x)<=0)return(x)

   unlist(
      lapply(x,
         function(i){
            i <- as.numeric(strsplit(i,':',fixed=TRUE)[[1]])
            if (length(i) == 3) 
               i[1]*3600 + i[2]*60 + i[3]
            else if (length(i) == 2) 
               i[1]*60 + i[2]
            else if (length(i) == 1) 
               i[1]
         }  
      )  
   )  
}

反过来（保留所需位数的小数秒：

secondsToString <- function(x,digits=2){
   unlist(
      lapply(x,
         function(i){
            # fractional seconds
            fs <- as.integer(round((i - round(i))*(10^digits)))
            fmt <- ''
            if (i >= 3600)
               fmt <- '%H:%M:%S'
            else if (i >= 60)
            fmt <- '%M:%S'
            else
               fmt <- '%OS'

            i <- format(as.POSIXct(strptime("0:0:0","%H:%M:%S")) + i, format=fmt)
            if (fs > 0)
               sub('[0]+$','',paste(i,fs,sep='.'))
            else
               i
         }
      )
   )
}

Answer 3

看看strptime。具体地

t = "02:15.45"
(as.numeric(as.POSIXct(strptime(t, format = "%M:%OS"))) - 
    as.numeric(as.POSIXct(strptime("0", format = "%S"))))

这样可行，但可能有点尴尬（这样做主要是因为POSIXct的烦人的自动单位转换......）

Answer 4

library(lubridate)
df$variable<- hms(df$variable)
df$variable<- as.numeric(df$variable)

使它成为单线也行。对我来说就像是一种魅力我希望这会有所帮助。

Answer 5

我不是很舒服所以我不知道是否有任何内置功能可用，但我已经制定了这段代码。

mmss_to_ss <- function  (string)
{
  mmss <- strsplit (string, ":", T)
  mm <- as.numeric (mmss[[1]][1])
  ss <- as.numeric (mmss[[1]][2])
  return (mm * 60 + ss)
}

这将接受mm：ss格式的时间字符串并返回第二个值。代码可以很容易地修改为从hh：mm：ss转换为秒。

Answer 6

您可以使用Lubridate包轻松完成此操作。如果使用格式“h：m：s”，则可以使用

将变量转换为lubridate对象

hms("12:12:54")

然后使用

将其转换为秒

seconds(hms("12:12:54"))

这是JSS

中的lubridate文章的链接

http://www.jstatsoft.org/v40/i03/paper

有没有办法将mm：ss.00转换为秒00？

6 个答案: