我得到以下数据集:
data <- read.table(text="
wake_time sleep_time
08:38:00 23:05:00
09:30:00 00:50:00
06:45:00 22:15:00
07:27:00 23:34:00
09:00:00 23:00:00
09:05:00 00:10:00
06:40:00 23:28:00
10:00:00 23:30:00
08:10:00 00:10:00
08:07:00 00:38:00", header=T)
我使用 chron-package 来计算平均wake_time:
> mean(times(data$wake_time))
[1] 08:20:12
但是当我对变量 sleep_time 执行相同操作时,会发生这种情况:
> mean(times(data$sleep_time))
[1] 14:04:00
我猜结果是扭曲的,因为 sleep_time 包含午夜前后的时间。
但我该如何解决这个问题呢?
此外:
我如何计算时间的标准差。例如,我想像“平均唤醒时间 08:20 ± 44 分钟”一样使用它。
时间值存储为数字 0-1,表示一天的一小部分。如果睡眠时间早于起床时间,您可以在取平均值之前“添加一天”。例如
library(chron)
wake <- times(data$wake_time)
sleep <- times(data$sleep_time)
times(mean(ifelse(sleep < wake, sleep+1, sleep)))
# [1] 23:40:00
由于这些值是一天的一部分,如果您想要以分钟为单位的 sd,您可以采用部分日期值并将其转换为分钟
sd(ifelse(sleep < wake, sleep+1, sleep) * 24*60)
# [1] 47.60252
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)