我正在从Bed.time和Waking.up.time计算睡眠时间,这两列在一个更大的数据集中。
我将它们转换为新的数据集,并将它们转换为数字数据,省略NAs。
bed <- data.frame(gsub(":","",as.character(proj.data$Bed.time)))
lapply(bed, as.numeric)
colnames(bed)[1]<-"Bed"
#View(bed)
wake <- data.frame(gsub(":","",as.character(proj.data$Waking.up.time)))
lapply(wake, as.numeric)
colnames(wake)[1]<-"Wake"
#View(wake)
timing <-data.frame(bed,wake)
#View(timing)
as.numeric(na.omit(timing$Bed))
as.numeric(na.omit(timing$Wake))
下面是遇到问题的地方,我不相信我的函数(Y)可以工作:
# convert columns to seconds
convert = do.call(data.frame, lapply(timing, lubridate::seconds))
sleeping<- function(x){
(as.numeric(substring(1,2)) * 60) + as.numeric(substring(3,4))
}
sleeping2<- function(y){
(as.numeric(substring(1,2)) * 60) - as.numeric(substring(3,4))
}
在ifelse语句中,如果wake值大于Bed,则应用my function(x)和Wake(x2) - Bed(x[1])。使用我的y函数,我尝试做相反的床(x[1])-唤醒(X2)。
# get time diff
timing$time_slept <- ifelse(timing$Wake > timing$Bed, apply(convert, 1, function(x) x[2] - x[1]), apply(convert, 1, function(y) y[1] - y[2]))
View(timing)
但是,数据输出(计时)如下所示:
在某些情况下,我的计算是成功的,但在另一些情况下,正如您可以看到的那样,值是以错误的顺序相互减去的,例如第1行2345-0645=1700
发布于 2021-11-04 12:59:51
1-将字符向量转换为日期-时间对象
bed <- lubridate::parse_date_time(bed, '%H%M')
wake <- lubridate::parse_date_time(wake, '%H%M')
2-计算时间差
time_diff <- wake - bed
3-通过添加24小时来更正负值。
time_diff_corrected <- ifelse(time_diff < 0, time_diff + 24, time_diff)
https://stackoverflow.com/questions/69838922
复制相似问题