计算 R 中就寝时间 (hh:mm) 的均值和标准差 - 问题是时间 before/after 午夜
Calculating mean and sd of bedtime (hh:mm) in R - problem are times before/after midnight
我得到了以下数据集：
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
我得到了以下数据集：
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