平均持续时间 R答案

【问题标题】：Average duration of time spent R平均持续时间 R
【发布时间】：2022-01-19 23:46:53
【问题描述】：

我正在尝试编写一个脚本来计算行为事件的平均持续时间。理想情况下，可以为我所有的行为类别进行计算，如果可能的话，还可以计算标准误差。

我的数据如下

29/10/2015 6:09:38  9   Low.energy.swimming
29/10/2015 6:09:39  9   Low.energy.swimming
29/10/2015 6:09:40  9   Low.energy.swimming
29/10/2015 6:09:41  9   Low.energy.swimming
29/10/2015 6:09:42  9   Low.energy.swimming
29/10/2015 6:09:43  9   Low.energy.swimming
29/10/2015 6:09:44  9   Travel
29/10/2015 6:09:45  9   Travel
29/10/2015 6:09:46  9   Travel
29/10/2015 6:09:47  9   Travel
29/10/2015 6:09:48  9   Travel
29/10/2015 6:09:49  9   Travel
29/10/2015 6:09:50  9   Travel
29/10/2015 6:09:51  9   Travel
29/10/2015 6:09:52  9   Low.energy.swimming
29/10/2015 6:09:53  9   Low.energy.swimming
29/10/2015 6:09:54  9   Low.energy.swimming
29/10/2015 6:09:55  9   Low.energy.swimming
29/10/2015 6:09:56  9   Low.energy.swimming
29/10/2015 6:09:57  9   Low.energy.swimming
29/10/2015 6:09:58  9   Low.energy.swimming
29/10/2015 6:09:59  9   Low.energy.swimming
29/10/2015 6:10:00  9   Low.energy.swimming
29/10/2015 6:10:01  9   Low.energy.swimming
29/10/2015 6:10:02  9   Low.energy.swimming
29/10/2015 6:10:03  9   Low.energy.swimming
29/10/2015 6:10:04  9   Low.energy.swimming
29/10/2015 6:10:05  9   Low.energy.swimming
29/10/2015 6:10:06  9   Low.energy.swimming
29/10/2015 6:10:07  9   Low.energy.swimming
29/10/2015 6:10:08  9   Low.energy.swimming
29/10/2015 6:10:09  9   Low.energy.swimming
29/10/2015 6:10:10  9   Low.energy.swimming
29/10/2015 6:10:11  9   Low.energy.swimming
29/10/2015 6:10:12  9   Low.energy.swimming
29/10/2015 6:10:13  9   Low.energy.swimming
29/10/2015 6:10:14  9   Low.energy.swimming
29/10/2015 6:10:15  9   Low.energy.swimming
29/10/2015 6:10:16  9   Low.energy.swimming
29/10/2015 6:10:17  9   Low.energy.swimming
29/10/2015 6:10:18  9   Low.energy.swimming
29/10/2015 6:10:19  9   Low.energy.swimming
29/10/2015 6:10:20  9   Low.energy.swimming
29/10/2015 6:10:21  9   Low.energy.swimming
29/10/2015 6:10:22  9   Low.energy.swimming
29/10/2015 6:10:23  9   Low.energy.swimming
29/10/2015 6:10:24  9   Low.energy.swimming
29/10/2015 6:10:25  9   Low.energy.swimming
29/10/2015 6:10:26  9   Low.energy.swimming
29/10/2015 6:10:27  9   Low.energy.swimming
29/10/2015 6:10:28  9   Low.energy.swimming
29/10/2015 6:10:29  9   Low.energy.swimming
29/10/2015 6:10:30  9   Low.energy.swimming
29/10/2015 6:10:31  9   Low.energy.swimming
29/10/2015 6:10:32  9   Low.energy.swimming
29/10/2015 6:10:33  9   Low.energy.swimming
29/10/2015 6:10:34  9   Low.energy.swimming
29/10/2015 6:10:35  9   Low.energy.swimming
29/10/2015 6:10:36  9   Low.energy.swimming
29/10/2015 6:10:37  9   Low.energy.swimming
29/10/2015 6:10:38  9   Burst
29/10/2015 6:10:39  9   Burst
29/10/2015 6:10:40  9   Burst
29/10/2015 6:10:41  9   Burst
29/10/2015 6:10:42  9   Burst
29/10/2015 6:10:43  9   Low.energy.swimming
29/10/2015 6:10:44  9   Low.energy.swimming
29/10/2015 6:10:45  9   Low.energy.swimming
29/10/2015 6:10:46  9   Low.energy.swimming
29/10/2015 6:10:47  9   Low.energy.swimming
29/10/2015 6:10:48  9   Low.energy.swimming
29/10/2015 6:10:49  9   Low.energy.swimming
29/10/2015 6:10:50  9   Low.energy.swimming
29/10/2015 6:10:51  9   Low.energy.swimming
29/10/2015 6:10:52  9   Low.energy.swimming
29/10/2015 6:10:53  9   Low.energy.swimming
29/10/2015 6:10:54  9   Low.energy.swimming
29/10/2015 6:10:55  9   Low.energy.swimming
29/10/2015 6:10:56  9   Low.energy.swimming
29/10/2015 6:10:57  9   Low.energy.swimming
29/10/2015 6:10:58  9   Low.energy.swimming
29/10/2015 6:10:59  9   Low.energy.swimming
29/10/2015 6:11:00  9   Low.energy.swimming
29/10/2015 6:11:01  9   Low.energy.swimming
29/10/2015 6:11:02  9   Low.energy.swimming
29/10/2015 6:11:03  9   Low.energy.swimming
29/10/2015 6:11:04  9   Low.energy.swimming
29/10/2015 6:11:05  9   Low.energy.swimming
29/10/2015 6:11:06  9   Low.energy.swimming
29/10/2015 6:11:07  9   Low.energy.swimming
29/10/2015 6:11:08  9   Low.energy.swimming
29/10/2015 6:11:09  9   Low.energy.swimming
29/10/2015 6:11:10  9   Low.energy.swimming
29/10/2015 6:11:11  9   Low.energy.swimming
29/10/2015 6:11:12  9   Low.energy.swimming
29/10/2015 6:11:13  9   Low.energy.swimming
29/10/2015 6:11:14  9   Low.energy.swimming
29/10/2015 6:11:15  9   Low.energy.swimming
29/10/2015 6:11:16  9   Low.energy.swimming
29/10/2015 6:11:17  9   Low.energy.swimming
29/10/2015 6:11:18  9   Low.energy.swimming
29/10/2015 6:11:19  9   Low.energy.swimming
29/10/2015 6:11:20  9   Low.energy.swimming
29/10/2015 6:11:21  9   Low.energy.swimming
29/10/2015 6:11:22  9   Low.energy.swimming
29/10/2015 6:11:23  9   Low.energy.swimming
29/10/2015 6:11:24  9   Low.energy.swimming
29/10/2015 6:11:25  9   Low.energy.swimming
29/10/2015 6:11:26  9   Low.energy.swimming
29/10/2015 6:11:27  9   Low.energy.swimming
29/10/2015 6:11:28  9   Low.energy.swimming
29/10/2015 6:11:29  9   Low.energy.swimming
29/10/2015 6:11:30  9   Low.energy.swimming
29/10/2015 6:11:31  9   Low.energy.swimming
29/10/2015 6:11:32  9   Low.energy.swimming
29/10/2015 6:11:33  9   Low.energy.swimming
29/10/2015 6:11:34  9   Low.energy.swimming
29/10/2015 6:11:35  9   Low.energy.swimming
29/10/2015 6:11:36  9   Low.energy.swimming
29/10/2015 6:11:37  9   Low.energy.swimming
29/10/2015 6:11:38  9   Low.energy.swimming
29/10/2015 6:11:39  9   Low.energy.swimming
29/10/2015 6:11:40  9   Low.energy.swimming
29/10/2015 6:11:41  9   Low.energy.swimming
29/10/2015 6:11:42  9   Low.energy.swimming
29/10/2015 6:11:43  9   Low.energy.swimming
29/10/2015 6:11:44  9   Low.energy.swimming
29/10/2015 6:11:45  9   Low.energy.swimming
29/10/2015 6:11:46  9   Low.energy.swimming
29/10/2015 6:11:47  9   Low.energy.swimming
29/10/2015 6:11:48  9   Low.energy.swimming
29/10/2015 6:11:49  9   Low.energy.swimming
29/10/2015 6:11:50  9   Low.energy.swimming
29/10/2015 6:11:51  9   Low.energy.swimming
29/10/2015 6:11:52  9   Low.energy.swimming
29/10/2015 6:11:53  9   Low.energy.swimming
29/10/2015 6:11:54  9   Low.energy.swimming
29/10/2015 6:11:55  9   Low.energy.swimming
29/10/2015 6:11:56  9   Low.energy.swimming
29/10/2015 6:11:57  9   Low.energy.swimming
29/10/2015 6:11:58  9   Low.energy.swimming
29/10/2015 6:11:59  9   Low.energy.swimming
29/10/2015 6:12:00  9   Low.energy.swimming
29/10/2015 6:12:01  9   Low.energy.swimming
29/10/2015 6:12:02  9   Low.energy.swimming
29/10/2015 6:12:03  9   Low.energy.swimming
29/10/2015 6:12:04  9   Low.energy.swimming
29/10/2015 6:12:05  9   Low.energy.swimming
29/10/2015 6:12:06  9   Low.energy.swimming
29/10/2015 6:12:07  9   Low.energy.swimming
29/10/2015 6:12:08  9   Low.energy.swimming
29/10/2015 6:12:09  9   Low.energy.swimming
29/10/2015 6:12:10  9   Low.energy.swimming
29/10/2015 6:12:11  9   Low.energy.swimming
29/10/2015 6:12:12  9   Low.energy.swimming
29/10/2015 6:12:13  9   Low.energy.swimming
29/10/2015 6:12:14  9   Low.energy.swimming
29/10/2015 6:12:15  9   Low.energy.swimming
29/10/2015 6:12:16  9   Low.energy.swimming
29/10/2015 6:12:17  9   Low.energy.swimming
29/10/2015 6:12:18  9   Low.energy.swimming
29/10/2015 6:12:19  9   Low.energy.swimming
29/10/2015 6:12:20  9   Low.energy.swimming
29/10/2015 6:12:21  9   Low.energy.swimming
29/10/2015 6:12:22  9   Low.energy.swimming
29/10/2015 6:12:23  9   Low.energy.swimming
29/10/2015 6:12:24  9   Low.energy.swimming
29/10/2015 6:12:25  9   Low.energy.swimming
29/10/2015 6:12:26  9   Low.energy.swimming
29/10/2015 6:12:27  9   Low.energy.swimming
29/10/2015 6:12:28  9   Low.energy.swimming
29/10/2015 6:12:29  9   Low.energy.swimming
29/10/2015 6:12:30  9   Low.energy.swimming
29/10/2015 6:12:31  9   Low.energy.swimming
29/10/2015 6:12:32  9   Low.energy.swimming
29/10/2015 6:12:33  9   Low.energy.swimming
29/10/2015 6:12:34  9   Low.energy.swimming
29/10/2015 6:12:35  9   Low.energy.swimming
29/10/2015 6:12:36  9   Low.energy.swimming
29/10/2015 6:12:37  9   Low.energy.swimming
29/10/2015 6:12:38  9   Low.energy.swimming
29/10/2015 6:12:39  9   Low.energy.swimming
29/10/2015 6:12:40  9   Low.energy.swimming
29/10/2015 6:12:41  9   Low.energy.swimming
29/10/2015 6:12:42  9   Low.energy.swimming
29/10/2015 6:12:43  9   Low.energy.swimming
29/10/2015 6:12:44  9   Low.energy.swimming
29/10/2015 6:12:45  9   Low.energy.swimming
29/10/2015 6:12:46  9   Low.energy.swimming
29/10/2015 6:12:47  9   Low.energy.swimming
29/10/2015 6:12:48  9   Low.energy.swimming
29/10/2015 6:12:49  9   Low.energy.swimming
29/10/2015 6:12:50  9   Low.energy.swimming
29/10/2015 6:12:51  9   Low.energy.swimming
29/10/2015 6:12:52  9   Low.energy.swimming
29/10/2015 6:12:53  9   Low.energy.swimming
29/10/2015 6:12:54  9   Low.energy.swimming
29/10/2015 6:12:55  9   Low.energy.swimming
29/10/2015 6:12:56  9   Low.energy.swimming
29/10/2015 6:12:57  9   Low.energy.swimming
29/10/2015 6:12:58  9   Low.energy.swimming
29/10/2015 6:12:59  9   Low.energy.swimming
29/10/2015 6:13:00  9   Low.energy.swimming
29/10/2015 6:13:01  9   Low.energy.swimming
29/10/2015 6:13:02  9   Low.energy.swimming
29/10/2015 6:13:03  9   Low.energy.swimming
29/10/2015 6:13:04  9   Low.energy.swimming
29/10/2015 6:13:05  9   Low.energy.swimming
29/10/2015 6:13:06  9   Low.energy.swimming
29/10/2015 6:13:07  9   Low.energy.swimming
29/10/2015 6:13:08  9   Low.energy.swimming
29/10/2015 6:13:09  9   Low.energy.swimming
29/10/2015 6:13:10  9   Low.energy.swimming
29/10/2015 6:13:11  9   Low.energy.swimming
29/10/2015 6:13:12  9   Low.energy.swimming
29/10/2015 6:13:13  9   Low.energy.swimming
29/10/2015 6:13:14  9   Low.energy.swimming
29/10/2015 6:13:15  9   Low.energy.swimming
29/10/2015 6:13:16  9   Low.energy.swimming
29/10/2015 6:13:17  9   Low.energy.swimming
29/10/2015 6:13:18  9   Low.energy.swimming
29/10/2015 6:13:19  9   Low.energy.swimming
29/10/2015 6:13:20  9   Low.energy.swimming
29/10/2015 6:13:21  9   Low.energy.swimming
29/10/2015 6:13:22  9   Low.energy.swimming
29/10/2015 6:13:23  9   Low.energy.swimming
29/10/2015 6:13:24  9   Low.energy.swimming
29/10/2015 6:13:25  9   Low.energy.swimming
29/10/2015 6:13:26  9   Low.energy.swimming
29/10/2015 6:13:27  9   Low.energy.swimming
29/10/2015 6:13:28  9   Low.energy.swimming
29/10/2015 6:13:29  9   Low.energy.swimming
29/10/2015 6:13:30  9   Low.energy.swimming
29/10/2015 6:13:31  9   Low.energy.swimming
29/10/2015 6:13:32  9   Low.energy.swimming
29/10/2015 6:13:33  9   Low.energy.swimming
29/10/2015 6:13:34  9   Low.energy.swimming
29/10/2015 6:13:35  9   Low.energy.swimming
29/10/2015 6:13:36  9   Low.energy.swimming
29/10/2015 6:13:37  9   Low.energy.swimming
29/10/2015 6:13:38  9   Low.energy.swimming
29/10/2015 6:13:39  9   Low.energy.swimming
29/10/2015 6:13:40  9   Low.energy.swimming
29/10/2015 6:13:41  9   Low.energy.swimming
29/10/2015 6:13:42  9   Low.energy.swimming
29/10/2015 6:13:43  9   Low.energy.swimming
29/10/2015 6:13:44  9   Low.energy.swimming
29/10/2015 6:13:45  9   Low.energy.swimming
29/10/2015 6:13:46  9   Low.energy.swimming
29/10/2015 6:13:47  9   Low.energy.swimming
29/10/2015 6:13:48  9   Low.energy.swimming
29/10/2015 6:13:49  9   Low.energy.swimming
29/10/2015 6:13:50  9   Low.energy.swimming
29/10/2015 6:13:51  9   Low.energy.swimming
29/10/2015 6:13:52  9   Low.energy.swimming
29/10/2015 6:13:53  9   Low.energy.swimming
29/10/2015 6:13:54  9   Low.energy.swimming
29/10/2015 6:13:55  9   Low.energy.swimming
29/10/2015 6:13:56  9   Low.energy.swimming
29/10/2015 6:13:57  9   Low.energy.swimming
29/10/2015 6:13:58  9   Low.energy.swimming
29/10/2015 6:13:59  9   Low.energy.swimming
29/10/2015 6:14:00  9   Low.energy.swimming
29/10/2015 6:14:01  9   Low.energy.swimming
29/10/2015 6:14:02  9   Low.energy.swimming
29/10/2015 6:14:03  9   Low.energy.swimming
29/10/2015 6:14:04  9   Low.energy.swimming
29/10/2015 6:14:05  9   Low.energy.swimming
29/10/2015 6:14:06  9   Low.energy.swimming
29/10/2015 6:14:07  9   Low.energy.swimming
29/10/2015 6:14:08  9   Low.energy.swimming
29/10/2015 6:14:09  9   Low.energy.swimming
29/10/2015 6:14:10  9   Low.energy.swimming
29/10/2015 6:14:11  9   Low.energy.swimming
29/10/2015 6:14:12  9   Low.energy.swimming
29/10/2015 6:14:13  9   Low.energy.swimming
29/10/2015 6:14:14  9   Low.energy.swimming
29/10/2015 6:14:15  9   Low.energy.swimming
29/10/2015 6:14:16  9   Low.energy.swimming
29/10/2015 6:14:17  9   Low.energy.swimming
29/10/2015 6:14:18  9   Low.energy.swimming
29/10/2015 6:14:19  9   Low.energy.swimming
29/10/2015 6:14:20  9   Low.energy.swimming
29/10/2015 6:14:21  9   Low.energy.swimming
29/10/2015 6:14:22  9   Low.energy.swimming
29/10/2015 6:14:23  9   Low.energy.swimming
29/10/2015 6:14:24  9   Low.energy.swimming
29/10/2015 6:14:25  9   Low.energy.swimming
29/10/2015 6:14:26  9   Low.energy.swimming
29/10/2015 6:14:27  9   Low.energy.swimming
29/10/2015 6:14:28  9   Low.energy.swimming
29/10/2015 6:14:29  9   Low.energy.swimming
29/10/2015 6:14:30  9   Low.energy.swimming
29/10/2015 6:14:31  9   Low.energy.swimming
29/10/2015 6:14:32  9   Low.energy.swimming
29/10/2015 6:14:33  9   Low.energy.swimming
29/10/2015 6:14:34  9   Burst
29/10/2015 6:14:35  9   Burst
29/10/2015 6:14:36  9   Burst
29/10/2015 6:14:37  9   Burst
29/10/2015 6:14:38  9   Burst
29/10/2015 6:14:39  9   Burst
29/10/2015 6:14:40  9   Low.energy.swimming
29/10/2015 6:14:41  9   Low.energy.swimming
29/10/2015 6:14:42  9   Low.energy.swimming
29/10/2015 6:14:43  9   Low.energy.swimming
29/10/2015 6:14:44  9   Low.energy.swimming
29/10/2015 6:14:45  9   Low.energy.swimming
29/10/2015 6:14:46  9   Low.energy.swimming
29/10/2015 6:14:47  9   Low.energy.swimming
29/10/2015 6:14:48  9   Low.energy.swimming
29/10/2015 6:14:49  9   Low.energy.swimming
29/10/2015 6:14:50  9   Low.energy.swimming
29/10/2015 6:14:51  9   Low.energy.swimming
29/10/2015 6:14:52  9   Low.energy.swimming
29/10/2015 6:14:53  9   Low.energy.swimming
29/10/2015 6:14:54  9   Low.energy.swimming
29/10/2015 6:14:55  9   Low.energy.swimming
29/10/2015 6:14:56  9   Low.energy.swimming
29/10/2015 6:14:57  9   Low.energy.swimming
29/10/2015 6:14:58  9   Low.energy.swimming
29/10/2015 6:14:59  9   Low.energy.swimming
29/10/2015 6:15:00  9   Low.energy.swimming
29/10/2015 6:15:01  9   Low.energy.swimming
29/10/2015 6:15:02  9   Low.energy.swimming
29/10/2015 6:15:03  9   Low.energy.swimming
29/10/2015 6:15:04  9   Low.energy.swimming
29/10/2015 6:15:05  9   Low.energy.swimming
29/10/2015 6:15:06  9   Low.energy.swimming
29/10/2015 6:15:07  9   Low.energy.swimming
29/10/2015 6:15:08  9   Low.energy.swimming
29/10/2015 6:15:09  9   Low.energy.swimming
29/10/2015 6:15:10  9   Low.energy.swimming
29/10/2015 6:15:11  9   Low.energy.swimming
29/10/2015 6:15:12  9   Low.energy.swimming
29/10/2015 6:15:13  9   Low.energy.swimming
29/10/2015 6:15:14  9   Low.energy.swimming
29/10/2015 6:15:15  9   Low.energy.swimming
29/10/2015 6:15:16  9   Low.energy.swimming
29/10/2015 6:15:17  9   Low.energy.swimming
29/10/2015 6:15:18  9   Low.energy.swimming
29/10/2015 6:15:19  9   Low.energy.swimming
29/10/2015 6:15:20  9   Low.energy.swimming
29/10/2015 6:15:21  9   Low.energy.swimming
29/10/2015 6:15:22  9   Low.energy.swimming
29/10/2015 6:15:23  9   Low.energy.swimming
29/10/2015 6:15:24  9   Low.energy.swimming
29/10/2015 6:15:25  9   Low.energy.swimming
29/10/2015 6:15:26  9   Low.energy.swimming
29/10/2015 6:15:27  9   Low.energy.swimming
29/10/2015 6:15:28  9   Low.energy.swimming
29/10/2015 6:15:29  9   Low.energy.swimming
29/10/2015 6:15:30  9   Low.energy.swimming
29/10/2015 6:15:31  9   Low.energy.swimming
29/10/2015 6:15:32  9   Low.energy.swimming
29/10/2015 6:15:33  9   Low.energy.swimming
29/10/2015 6:15:34  9   Low.energy.swimming
29/10/2015 6:15:35  9   Low.energy.swimming
29/10/2015 6:15:36  9   Low.energy.swimming
29/10/2015 6:15:37  9   Low.energy.swimming
29/10/2015 6:15:38  9   Low.energy.swimming
29/10/2015 6:15:39  9   Low.energy.swimming
29/10/2015 6:15:40  9   Low.energy.swimming
29/10/2015 6:15:41  9   Low.energy.swimming
29/10/2015 6:15:42  9   Low.energy.swimming
29/10/2015 6:15:43  9   Low.energy.swimming
29/10/2015 6:15:44  9   Low.energy.swimming
29/10/2015 6:15:45  9   Low.energy.swimming
29/10/2015 6:15:46  9   Travel
29/10/2015 6:15:47  9   Travel
29/10/2015 6:15:48  9   Travel
29/10/2015 6:15:49  9   Travel
29/10/2015 6:15:50  9   Travel
29/10/2015 6:15:51  9   Low.energy.swimming
29/10/2015 6:15:52  9   Low.energy.swimming
29/10/2015 6:15:53  9   Low.energy.swimming
29/10/2015 6:15:54  9   Low.energy.swimming
29/10/2015 6:15:55  9   Low.energy.swimming
29/10/2015 6:15:56  9   Low.energy.swimming
29/10/2015 6:15:57  9   Low.energy.swimming
29/10/2015 6:15:58  9   Low.energy.swimming
29/10/2015 6:15:59  9   Low.energy.swimming
29/10/2015 6:16:00  9   Low.energy.swimming
29/10/2015 6:16:01  9   Low.energy.swimming
29/10/2015 6:16:02  9   Low.energy.swimming
29/10/2015 6:16:03  9   Low.energy.swimming
29/10/2015 6:16:04  9   Low.energy.swimming
29/10/2015 6:16:05  9   Low.energy.swimming
29/10/2015 6:16:06  9   Low.energy.swimming
29/10/2015 6:16:07  9   Low.energy.swimming
29/10/2015 6:16:08  9   Low.energy.swimming
29/10/2015 6:16:09  9   Low.energy.swimming
29/10/2015 6:16:10  9   Low.energy.swimming
29/10/2015 6:16:11  9   Low.energy.swimming
29/10/2015 6:16:12  9   Low.energy.swimming
29/10/2015 6:16:13  9   Low.energy.swimming
29/10/2015 6:16:14  9   Low.energy.swimming
29/10/2015 6:16:15  9   Low.energy.swimming
29/10/2015 6:16:16  9   Low.energy.swimming
29/10/2015 6:16:17  9   Low.energy.swimming
29/10/2015 6:16:18  9   Low.energy.swimming
29/10/2015 6:16:19  9   Low.energy.swimming
29/10/2015 6:16:20  9   Low.energy.swimming
29/10/2015 6:16:21  9   Low.energy.swimming
29/10/2015 6:16:22  9   Low.energy.swimming
29/10/2015 6:16:23  9   Low.energy.swimming
29/10/2015 6:16:24  9   Low.energy.swimming
29/10/2015 6:16:25  9   Low.energy.swimming
29/10/2015 6:16:26  9   Low.energy.swimming
29/10/2015 6:16:27  9   Low.energy.swimming
29/10/2015 6:16:28  9   Low.energy.swimming
29/10/2015 6:16:29  9   Low.energy.swimming
29/10/2015 6:16:30  9   Burst
29/10/2015 6:16:31  9   Burst
29/10/2015 6:16:32  9   Burst
29/10/2015 6:16:33  9   Burst
29/10/2015 6:16:34  9   Burst
29/10/2015 6:16:35  9   Low.energy.swimming
29/10/2015 6:16:36  9   Low.energy.swimming
29/10/2015 6:16:37  9   Low.energy.swimming
29/10/2015 6:16:38  9   Low.energy.swimming
29/10/2015 6:16:39  9   Low.energy.swimming
29/10/2015 6:16:40  9   Low.energy.swimming
29/10/2015 6:16:41  9   Low.energy.swimming
29/10/2015 6:16:42  9   Low.energy.swimming
29/10/2015 6:16:43  9   Low.energy.swimming
29/10/2015 6:16:44  9   Low.energy.swimming
29/10/2015 6:16:45  9   Low.energy.swimming
29/10/2015 6:16:46  9   Low.energy.swimming
29/10/2015 6:16:47  9   Low.energy.swimming
29/10/2015 6:16:48  9   Low.energy.swimming
29/10/2015 6:16:49  9   Low.energy.swimming
29/10/2015 6:16:50  9   Low.energy.swimming
29/10/2015 6:16:51  9   Low.energy.swimming
29/10/2015 6:16:52  9   Low.energy.swimming
29/10/2015 6:16:53  9   Low.energy.swimming
29/10/2015 6:16:54  9   Low.energy.swimming
29/10/2015 6:16:55  9   Low.energy.swimming
29/10/2015 6:16:56  9   Low.energy.swimming
29/10/2015 6:16:57  9   Low.energy.swimming
29/10/2015 6:16:58  9   Low.energy.swimming
29/10/2015 6:16:59  9   Low.energy.swimming
29/10/2015 6:17:00  9   Low.energy.swimming

我有七种行为和一个大数据集。我在想循环可能是要走的路，但我对循环没有任何经验，所以很想得到你的帮助！

谢谢！编辑数据链接 https://1drv.ms/u/s!AiQXB4O4k-d3gZ47Ns566Yw4TAGwtg?e=rVPuaR

@joe springs 代码的当前表输出 - 这些值不正确

Ascending   15.33061889
Burst   5.75
Descending  16.76580796
High.energy.swimming    149596.6434
Low.energy.swimming 57.8042349
Medium.energy.swimming  14.39765701
Travel  17.38504452

【问题讨论】：

这些行是否都是快照时刻，其中“持续时间”是直到下一个具有不同活动的快照所经过的总时间？ 9 列代表什么？这些都与一个人有关吗？ “大量”是什么意思——100,000 行、10M、1B？这在使用 aggregate 的基础 R 中看起来是可行的。我通常会使用dplyr's group_by & summarise 来获取您的统计数据。如果超过 100,000 个人，data.table 会更快。
持续时间是直到下一个活动的总时间。鲨鱼 ID 是 '9' 我在一个数据表中有 20 条鲨鱼，每条鲨鱼都有一个唯一的 ID，它是 1760355 行（大量可能是夸大其词，但它很大）我在想一个循环就像：上面的行是 x 行为，保持直到下一行更改为不同的行为，然后计算行为的持续时间，最后计算平均持续时间。
我无法在浏览器中打开数据文件，因为它的大小超过了 25MB。你能把它减少到大概六个 ID 并重新发布吗？
谢谢。这是较小的 ID 之一，其余的 ID 对于 25MB 1drv.ms/x/s!AiQXB4O4k-d3gZ5X5fROkesgmXzrxQ?e=MIsd7N 来说太大了

标签： r loops average duration

【解决方案1】：

这是另一种方法。如果我们假设日志的每一行等于 1 秒，我们可以跳过计算持续时间而只计算每个活动的重复次数。 R 有 rle() 函数。

#find the run lengths
runlengths <-rle(df$V4)
idruns <- rle(df$V3)

#place the count and labels into a data frame
rundf <-data.frame(runs=runlengths$lengths, values=runlengths$values)

library(dplyr)
#Summarize the data
answer <- rundf %>% group_by(values) %>% summarize(mean_in_sec=mean(runs), stderr=sd(runs)/sqrt(n()))
answer

# A tibble: 3 × 3
  values              mean_in_sec stderr
  <chr>                     <dbl>  <dbl>
1 Burst                      5.33  0.333
2 Low.energy.swimming       69    33.4  
3 Travel                     6.5   1.5

上面的数字与 Joe 的解决方案非常相似。

【讨论】：

【解决方案2】：

此解决方案包含三个基本步骤。

获取按activity_line_no 分组的数据。基本上，每当每个 ID 的活动发生变化时，您都会添加一个新的新行号。这里讨论得非常好Identify value change (categorical) by group. R
按行号计算持续时间。我喜欢lubridate。
使用dplyr获取总体汇总均值和std errorr。


library(dplyr)
library(lubridate)

df_grouped<-df %>% 
  group_by(ID) %>% 
  mutate(
    change = case_when(
      activity != lag(activity) ~ TRUE,
      TRUE ~ FALSE
    ),
    activity_line_no = cumsum(change)
  ) %>%
  ungroup() %>%
  select(date_time, ID, activity, activity_line_no) 

df_grouped
#> # A tibble: 442 × 4
#>    date_time          ID    activity            activity_line_no
#>    <chr>              <chr> <chr>                          <int>
#>  1 29/10/2015 6:09:39 9     Low.energy.swimming                0
#>  2 29/10/2015 6:09:40 9     Low.energy.swimming                0
#>  3 29/10/2015 6:09:41 9     Low.energy.swimming                0
#>  4 29/10/2015 6:09:42 9     Low.energy.swimming                0
#>  5 29/10/2015 6:09:43 9     Low.energy.swimming                0
#>  6 29/10/2015 6:09:44 9     Travel                             1
#>  7 29/10/2015 6:09:45 9     Travel                             1
#>  8 29/10/2015 6:09:46 9     Travel                             1
#>  9 29/10/2015 6:09:47 9     Travel                             1
#> 10 29/10/2015 6:09:48 9     Travel                             1
#> # … with 432 more rows

df_durations<-df_grouped %>%
  group_by(ID, activity_line_no, activity) %>%
  summarize(first_time_stamp=first(date_time), 
            last_time_stamp=last(date_time),
            duration= ((dmy_hms(first_time_stamp) %--% dmy_hms(last_time_stamp)) %>% as.duration)/dseconds(1)
  ) %>%
  ungroup()

df_durations
#> # A tibble: 11 × 6
#>    ID    activity_line_no activity    first_time_stamp  last_time_stamp duration
#>    <chr>            <int> <chr>       <chr>             <chr>              <dbl>
#>  1 9                    0 Low.energy… 29/10/2015 6:09:… 29/10/2015 6:0…        4
#>  2 9                    1 Travel      29/10/2015 6:09:… 29/10/2015 6:0…        7
#>  3 9                    2 Low.energy… 29/10/2015 6:09:… 29/10/2015 6:1…       45
#>  4 9                    3 Burst       29/10/2015 6:10:… 29/10/2015 6:1…        4
#>  5 9                    4 Low.energy… 29/10/2015 6:10:… 29/10/2015 6:1…      230
#>  6 9                    5 Burst       29/10/2015 6:14:… 29/10/2015 6:1…        5
#>  7 9                    6 Low.energy… 29/10/2015 6:14:… 29/10/2015 6:1…       65
#>  8 9                    7 Travel      29/10/2015 6:15:… 29/10/2015 6:1…        4
#>  9 9                    8 Low.energy… 29/10/2015 6:15:… 29/10/2015 6:1…       38
#> 10 9                    9 Burst       29/10/2015 6:16:… 29/10/2015 6:1…        4
#> 11 9                   10 Low.energy… 29/10/2015 6:16:… 29/10/2015 6:1…       25

df_summary <-df_durations %>%
  group_by(ID, activity) %>%
  summarize(n=n(),mean=mean(duration), stderr=sd(duration)/sqrt(n())) %>%
  ungroup()

df_summary
#> # A tibble: 3 × 5
#>   ID    activity                n  mean stderr
#>   <chr> <chr>               <int> <dbl>  <dbl>
#> 1 9     Burst                   3  4.33  0.333
#> 2 9     Low.energy.swimming     6 67.8  33.5  
#> 3 9     Travel                  2  5.5   1.5


df<-structure(list(date_time = c("29/10/2015 6:09:39", "29/10/2015 6:09:40", 
"29/10/2015 6:09:41", "29/10/2015 6:09:42", "29/10/2015 6:09:43", 
"29/10/2015 6:09:44", "29/10/2015 6:09:45", "29/10/2015 6:09:46", 
"29/10/2015 6:09:47", "29/10/2015 6:09:48", "29/10/2015 6:09:49", 
"29/10/2015 6:09:50", "29/10/2015 6:09:51", "29/10/2015 6:09:52", 
"29/10/2015 6:09:53", "29/10/2015 6:09:54", "29/10/2015 6:09:55", 
"29/10/2015 6:09:56", "29/10/2015 6:09:57", "29/10/2015 6:09:58", 
"29/10/2015 6:09:59", "29/10/2015 6:10:00", "29/10/2015 6:10:01", 
"29/10/2015 6:10:02", "29/10/2015 6:10:03", "29/10/2015 6:10:04", 
"29/10/2015 6:10:05", "29/10/2015 6:10:06", "29/10/2015 6:10:07", 
"29/10/2015 6:10:08", "29/10/2015 6:10:09", "29/10/2015 6:10:10", 
"29/10/2015 6:10:11", "29/10/2015 6:10:12", "29/10/2015 6:10:13", 
"29/10/2015 6:10:14", "29/10/2015 6:10:15", "29/10/2015 6:10:16", 
"29/10/2015 6:10:17", "29/10/2015 6:10:18", "29/10/2015 6:10:19", 
"29/10/2015 6:10:20", "29/10/2015 6:10:21", "29/10/2015 6:10:22", 
"29/10/2015 6:10:23", "29/10/2015 6:10:24", "29/10/2015 6:10:25", 
"29/10/2015 6:10:26", "29/10/2015 6:10:27", "29/10/2015 6:10:28", 
"29/10/2015 6:10:29", "29/10/2015 6:10:30", "29/10/2015 6:10:31", 
"29/10/2015 6:10:32", "29/10/2015 6:10:33", "29/10/2015 6:10:34", 
"29/10/2015 6:10:35", "29/10/2015 6:10:36", "29/10/2015 6:10:37", 
"29/10/2015 6:10:38", "29/10/2015 6:10:39", "29/10/2015 6:10:40", 
"29/10/2015 6:10:41", "29/10/2015 6:10:42", "29/10/2015 6:10:43", 
"29/10/2015 6:10:44", "29/10/2015 6:10:45", "29/10/2015 6:10:46", 
"29/10/2015 6:10:47", "29/10/2015 6:10:48", "29/10/2015 6:10:49", 
"29/10/2015 6:10:50", "29/10/2015 6:10:51", "29/10/2015 6:10:52", 
"29/10/2015 6:10:53", "29/10/2015 6:10:54", "29/10/2015 6:10:55", 
"29/10/2015 6:10:56", "29/10/2015 6:10:57", "29/10/2015 6:10:58", 
"29/10/2015 6:10:59", "29/10/2015 6:11:00", "29/10/2015 6:11:01", 
"29/10/2015 6:11:02", "29/10/2015 6:11:03", "29/10/2015 6:11:04", 
"29/10/2015 6:11:05", "29/10/2015 6:11:06", "29/10/2015 6:11:07", 
"29/10/2015 6:11:08", "29/10/2015 6:11:09", "29/10/2015 6:11:10", 
"29/10/2015 6:11:11", "29/10/2015 6:11:12", "29/10/2015 6:11:13", 
"29/10/2015 6:11:14", "29/10/2015 6:11:15", "29/10/2015 6:11:16", 
"29/10/2015 6:11:17", "29/10/2015 6:11:18", "29/10/2015 6:11:19", 
"29/10/2015 6:11:20", "29/10/2015 6:11:21", "29/10/2015 6:11:22", 
"29/10/2015 6:11:23", "29/10/2015 6:11:24", "29/10/2015 6:11:25", 
"29/10/2015 6:11:26", "29/10/2015 6:11:27", "29/10/2015 6:11:28", 
"29/10/2015 6:11:29", "29/10/2015 6:11:30", "29/10/2015 6:11:31", 
"29/10/2015 6:11:32", "29/10/2015 6:11:33", "29/10/2015 6:11:34", 
"29/10/2015 6:11:35", "29/10/2015 6:11:36", "29/10/2015 6:11:37", 
"29/10/2015 6:11:38", "29/10/2015 6:11:39", "29/10/2015 6:11:40", 
"29/10/2015 6:11:41", "29/10/2015 6:11:42", "29/10/2015 6:11:43", 
"29/10/2015 6:11:44", "29/10/2015 6:11:45", "29/10/2015 6:11:46", 
"29/10/2015 6:11:47", "29/10/2015 6:11:48", "29/10/2015 6:11:49", 
"29/10/2015 6:11:50", "29/10/2015 6:11:51", "29/10/2015 6:11:52", 
"29/10/2015 6:11:53", "29/10/2015 6:11:54", "29/10/2015 6:11:55", 
"29/10/2015 6:11:56", "29/10/2015 6:11:57", "29/10/2015 6:11:58", 
"29/10/2015 6:11:59", "29/10/2015 6:12:00", "29/10/2015 6:12:01", 
"29/10/2015 6:12:02", "29/10/2015 6:12:03", "29/10/2015 6:12:04", 
"29/10/2015 6:12:05", "29/10/2015 6:12:06", "29/10/2015 6:12:07", 
"29/10/2015 6:12:08", "29/10/2015 6:12:09", "29/10/2015 6:12:10", 
"29/10/2015 6:12:11", "29/10/2015 6:12:12", "29/10/2015 6:12:13", 
"29/10/2015 6:12:14", "29/10/2015 6:12:15", "29/10/2015 6:12:16", 
"29/10/2015 6:12:17", "29/10/2015 6:12:18", "29/10/2015 6:12:19", 
"29/10/2015 6:12:20", "29/10/2015 6:12:21", "29/10/2015 6:12:22", 
"29/10/2015 6:12:23", "29/10/2015 6:12:24", "29/10/2015 6:12:25", 
"29/10/2015 6:12:26", "29/10/2015 6:12:27", "29/10/2015 6:12:28", 
"29/10/2015 6:12:29", "29/10/2015 6:12:30", "29/10/2015 6:12:31", 
"29/10/2015 6:12:32", "29/10/2015 6:12:33", "29/10/2015 6:12:34", 
"29/10/2015 6:12:35", "29/10/2015 6:12:36", "29/10/2015 6:12:37", 
"29/10/2015 6:12:38", "29/10/2015 6:12:39", "29/10/2015 6:12:40", 
"29/10/2015 6:12:41", "29/10/2015 6:12:42", "29/10/2015 6:12:43", 
"29/10/2015 6:12:44", "29/10/2015 6:12:45", "29/10/2015 6:12:46", 
"29/10/2015 6:12:47", "29/10/2015 6:12:48", "29/10/2015 6:12:49", 
"29/10/2015 6:12:50", "29/10/2015 6:12:51", "29/10/2015 6:12:52", 
"29/10/2015 6:12:53", "29/10/2015 6:12:54", "29/10/2015 6:12:55", 
"29/10/2015 6:12:56", "29/10/2015 6:12:57", "29/10/2015 6:12:58", 
"29/10/2015 6:12:59", "29/10/2015 6:13:00", "29/10/2015 6:13:01", 
"29/10/2015 6:13:02", "29/10/2015 6:13:03", "29/10/2015 6:13:04", 
"29/10/2015 6:13:05", "29/10/2015 6:13:06", "29/10/2015 6:13:07", 
"29/10/2015 6:13:08", "29/10/2015 6:13:09", "29/10/2015 6:13:10", 
"29/10/2015 6:13:11", "29/10/2015 6:13:12", "29/10/2015 6:13:13", 
"29/10/2015 6:13:14", "29/10/2015 6:13:15", "29/10/2015 6:13:16", 
"29/10/2015 6:13:17", "29/10/2015 6:13:18", "29/10/2015 6:13:19", 
"29/10/2015 6:13:20", "29/10/2015 6:13:21", "29/10/2015 6:13:22", 
"29/10/2015 6:13:23", "29/10/2015 6:13:24", "29/10/2015 6:13:25", 
"29/10/2015 6:13:26", "29/10/2015 6:13:27", "29/10/2015 6:13:28", 
"29/10/2015 6:13:29", "29/10/2015 6:13:30", "29/10/2015 6:13:31", 
"29/10/2015 6:13:32", "29/10/2015 6:13:33", "29/10/2015 6:13:34", 
"29/10/2015 6:13:35", "29/10/2015 6:13:36", "29/10/2015 6:13:37", 
"29/10/2015 6:13:38", "29/10/2015 6:13:39", "29/10/2015 6:13:40", 
"29/10/2015 6:13:41", "29/10/2015 6:13:42", "29/10/2015 6:13:43", 
"29/10/2015 6:13:44", "29/10/2015 6:13:45", "29/10/2015 6:13:46", 
"29/10/2015 6:13:47", "29/10/2015 6:13:48", "29/10/2015 6:13:49", 
"29/10/2015 6:13:50", "29/10/2015 6:13:51", "29/10/2015 6:13:52", 
"29/10/2015 6:13:53", "29/10/2015 6:13:54", "29/10/2015 6:13:55", 
"29/10/2015 6:13:56", "29/10/2015 6:13:57", "29/10/2015 6:13:58", 
"29/10/2015 6:13:59", "29/10/2015 6:14:00", "29/10/2015 6:14:01", 
"29/10/2015 6:14:02", "29/10/2015 6:14:03", "29/10/2015 6:14:04", 
"29/10/2015 6:14:05", "29/10/2015 6:14:06", "29/10/2015 6:14:07", 
"29/10/2015 6:14:08", "29/10/2015 6:14:09", "29/10/2015 6:14:10", 
"29/10/2015 6:14:11", "29/10/2015 6:14:12", "29/10/2015 6:14:13", 
"29/10/2015 6:14:14", "29/10/2015 6:14:15", "29/10/2015 6:14:16", 
"29/10/2015 6:14:17", "29/10/2015 6:14:18", "29/10/2015 6:14:19", 
"29/10/2015 6:14:20", "29/10/2015 6:14:21", "29/10/2015 6:14:22", 
"29/10/2015 6:14:23", "29/10/2015 6:14:24", "29/10/2015 6:14:25", 
"29/10/2015 6:14:26", "29/10/2015 6:14:27", "29/10/2015 6:14:28", 
"29/10/2015 6:14:29", "29/10/2015 6:14:30", "29/10/2015 6:14:31", 
"29/10/2015 6:14:32", "29/10/2015 6:14:33", "29/10/2015 6:14:34", 
"29/10/2015 6:14:35", "29/10/2015 6:14:36", "29/10/2015 6:14:37", 
"29/10/2015 6:14:38", "29/10/2015 6:14:39", "29/10/2015 6:14:40", 
"29/10/2015 6:14:41", "29/10/2015 6:14:42", "29/10/2015 6:14:43", 
"29/10/2015 6:14:44", "29/10/2015 6:14:45", "29/10/2015 6:14:46", 
"29/10/2015 6:14:47", "29/10/2015 6:14:48", "29/10/2015 6:14:49", 
"29/10/2015 6:14:50", "29/10/2015 6:14:51", "29/10/2015 6:14:52", 
"29/10/2015 6:14:53", "29/10/2015 6:14:54", "29/10/2015 6:14:55", 
"29/10/2015 6:14:56", "29/10/2015 6:14:57", "29/10/2015 6:14:58", 
"29/10/2015 6:14:59", "29/10/2015 6:15:00", "29/10/2015 6:15:01", 
"29/10/2015 6:15:02", "29/10/2015 6:15:03", "29/10/2015 6:15:04", 
"29/10/2015 6:15:05", "29/10/2015 6:15:06", "29/10/2015 6:15:07", 
"29/10/2015 6:15:08", "29/10/2015 6:15:09", "29/10/2015 6:15:10", 
"29/10/2015 6:15:11", "29/10/2015 6:15:12", "29/10/2015 6:15:13", 
"29/10/2015 6:15:14", "29/10/2015 6:15:15", "29/10/2015 6:15:16", 
"29/10/2015 6:15:17", "29/10/2015 6:15:18", "29/10/2015 6:15:19", 
"29/10/2015 6:15:20", "29/10/2015 6:15:21", "29/10/2015 6:15:22", 
"29/10/2015 6:15:23", "29/10/2015 6:15:24", "29/10/2015 6:15:25", 
"29/10/2015 6:15:26", "29/10/2015 6:15:27", "29/10/2015 6:15:28", 
"29/10/2015 6:15:29", "29/10/2015 6:15:30", "29/10/2015 6:15:31", 
"29/10/2015 6:15:32", "29/10/2015 6:15:33", "29/10/2015 6:15:34", 
"29/10/2015 6:15:35", "29/10/2015 6:15:36", "29/10/2015 6:15:37", 
"29/10/2015 6:15:38", "29/10/2015 6:15:39", "29/10/2015 6:15:40", 
"29/10/2015 6:15:41", "29/10/2015 6:15:42", "29/10/2015 6:15:43", 
"29/10/2015 6:15:44", "29/10/2015 6:15:45", "29/10/2015 6:15:46", 
"29/10/2015 6:15:47", "29/10/2015 6:15:48", "29/10/2015 6:15:49", 
"29/10/2015 6:15:50", "29/10/2015 6:15:51", "29/10/2015 6:15:52", 
"29/10/2015 6:15:53", "29/10/2015 6:15:54", "29/10/2015 6:15:55", 
"29/10/2015 6:15:56", "29/10/2015 6:15:57", "29/10/2015 6:15:58", 
"29/10/2015 6:15:59", "29/10/2015 6:16:00", "29/10/2015 6:16:01", 
"29/10/2015 6:16:02", "29/10/2015 6:16:03", "29/10/2015 6:16:04", 
"29/10/2015 6:16:05", "29/10/2015 6:16:06", "29/10/2015 6:16:07", 
"29/10/2015 6:16:08", "29/10/2015 6:16:09", "29/10/2015 6:16:10", 
"29/10/2015 6:16:11", "29/10/2015 6:16:12", "29/10/2015 6:16:13", 
"29/10/2015 6:16:14", "29/10/2015 6:16:15", "29/10/2015 6:16:16", 
"29/10/2015 6:16:17", "29/10/2015 6:16:18", "29/10/2015 6:16:19", 
"29/10/2015 6:16:20", "29/10/2015 6:16:21", "29/10/2015 6:16:22", 
"29/10/2015 6:16:23", "29/10/2015 6:16:24", "29/10/2015 6:16:25", 
"29/10/2015 6:16:26", "29/10/2015 6:16:27", "29/10/2015 6:16:28", 
"29/10/2015 6:16:29", "29/10/2015 6:16:30", "29/10/2015 6:16:31", 
"29/10/2015 6:16:32", "29/10/2015 6:16:33", "29/10/2015 6:16:34", 
"29/10/2015 6:16:35", "29/10/2015 6:16:36", "29/10/2015 6:16:37", 
"29/10/2015 6:16:38", "29/10/2015 6:16:39", "29/10/2015 6:16:40", 
"29/10/2015 6:16:41", "29/10/2015 6:16:42", "29/10/2015 6:16:43", 
"29/10/2015 6:16:44", "29/10/2015 6:16:45", "29/10/2015 6:16:46", 
"29/10/2015 6:16:47", "29/10/2015 6:16:48", "29/10/2015 6:16:49", 
"29/10/2015 6:16:50", "29/10/2015 6:16:51", "29/10/2015 6:16:52", 
"29/10/2015 6:16:53", "29/10/2015 6:16:54", "29/10/2015 6:16:55", 
"29/10/2015 6:16:56", "29/10/2015 6:16:57", "29/10/2015 6:16:58", 
"29/10/2015 6:16:59", "29/10/2015 6:17:00"), ID = c("9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9", 
"9", "9", "9", "9", "9", "9", "9", "9", "9", "9", "9"), activity = c("Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Travel", "Travel", "Travel", "Travel", 
"Travel", "Travel", "Travel", "Travel", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Burst", "Burst", "Burst", "Burst", "Burst", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Burst", "Burst", 
"Burst", "Burst", "Burst", "Burst", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Travel", "Travel", "Travel", "Travel", 
"Travel", "Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Burst", "Burst", "Burst", "Burst", "Burst", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming", "Low.energy.swimming", "Low.energy.swimming", 
"Low.energy.swimming")), row.names = c(NA, -442L), class = c("tbl_df", 
"tbl", "data.frame"))

^{由reprex package (v2.0.1) 于 2022-01-20 创建}

【讨论】：

谢谢！我不确定它是否正常工作，我的一些价值观似乎还可以，但对于我最长的一些行为而言，平均持续时间似乎非常低。 - 平均值是什么单位？
平均值以分钟为单位。您可以通过将 dminutes 更改为 dseconds 来更改它
是的，我得到的值肯定是错误的 - 平均（秒）Ascending 15.33061889 Burst 5.75 Descending 16.76580796 High.energy.swimming 149596.6434 Low.energy.swimming 57.8042349 Medium.energy.swimming 14.39765701 Travel 17.38504452 大多数这些行为应该发生几分钟甚至几小时。虽然 high.energy.swiming 的持续时间应该更短。
change = case_when(activity != lag(activity) ~ TRUE, TRUE ~ FALSE) 使用change = activity != lag(activity) 编码会更简单
使用这个新代码，activity != lag(activity) 为第一行提供 NA。我喜欢你的代码。有没有办法设置默认值？