Question

我有一个带有小时标记和相应温度的数据框。随着时间的推移连续地进行测量。我想将小时数转换为各自的日期时间和测量的温度。我的数据框如下所示:(测量始于2016年5月20日）

Time, Temp
09.25,28
10.35,28.2
18.25,29
23.50,30
01.10,31
12.00,36
02.00,25

我想创建一个具有相应日期时间和温度的data.frame，如下所示：

Time, Temp
2016-05-20 09:25,28
2016-05-20 10:35,28.2
2016-05-20 18:25,29
2016-05-20 23:50,30
2016-05-21 01:10,31
2016-05-21 12:00,36
2016-05-22 02:00,25

我很感谢有关R中的软件包或功能的任何评论和提示，我可以看看这样做。谢谢你的时间。

Answer 1

基础R中的可能解决方案：

df$Time <- as.POSIXct(strptime(paste('2016-05-20', sprintf('%05.2f',df$Time)), format = '%Y-%m-%d %H.%M', tz = 'GMT'))
df$Time <- df$Time + cumsum(c(0,diff(df$Time)) < 0) * 86400  # 86400 = 60 * 60 * 24

给出：

> df
                 Time Temp
1 2016-05-20 09:25:00 28.0
2 2016-05-20 10:35:00 28.2
3 2016-05-20 18:25:00 29.0
4 2016-05-20 23:50:00 30.0
5 2016-05-21 01:10:00 31.0
6 2016-05-21 12:00:00 36.0
7 2016-05-22 02:00:00 25.0

使用data.table的替代方法（当然，您也可以cumsum使用diff代替rleid＆amp; shift）：

setDT(df)[, Time := as.POSIXct(strptime(paste('2016-05-20', sprintf('%05.2f',Time)), format = '%Y-%m-%d %H.%M', tz = 'GMT')) +
            (rleid(Time < shift(Time, fill = Time[1]))-1) * 86400]

或dplyr：

library(dplyr)
df %>%
  mutate(Time = as.POSIXct(strptime(paste('2016-05-20', 
                                          sprintf('%05.2f',Time)), 
                                    format = '%Y-%m-%d %H.%M', tz = 'GMT')) + 
           cumsum(c(0,diff(Time)) < 0)*86400)

两者都会给出相同的结果。

使用过的数据：

df <- read.table(text='Time, Temp
09.25,28
10.35,28.2
18.25,29
23.50,30
01.10,31
12.00,36
02.00,25', header=TRUE, sep=',')

Answer 2

您可以使用自定义日期格式以及检测新一天开始时间的某些代码（假设第一次测量发生在当天早些时候，而不是前一天的最后一次测量）。

# starting day
start_date = "2016-05-20"

values=read.csv('values.txt', colClasses=c("character",NA))
last=c(0,values$Time[1:nrow(values)-1])
day=cumsum(values$Time<last)

Time = strptime(paste(start_date,values$Time), "%Y-%m-%d %H.%M")
Time = Time + day*86400
values$Time = Time

将小时转换为日期时间

2 个答案: