用添加到上一列的计算结果替换 NA 值答案

【问题标题】：Replacing NA values with a calculation result added on to the previous column用添加到上一列的计算结果替换 NA 值
【发布时间】：2026-01-19 02:30:01
【问题描述】：

我有一个名为Ambulance 的响应时间数据集

Date      Station TOC        ORD       MOB       IA        LS        AH       
01/01/13   S1     00:02:44   00:04:11  00:04:44  00:04:58  00:05:12  00:05:32
01/01/13   S2     00:03:04   00:03:21  00:03:54  00:04:28  00:04:52  00:05:02
01/01/13   S4     00:04:24   00:04:41  N/A       00:05:18  00:05:22  00:05:35
01/01/13   S1     00:04:44   00:04:51  00:05:04  00:05:58  00:06:12  00:06:32

时间数据代表应急响应流程的不同阶段，因此右侧的列将始终位于当天的晚些时候。数据集相当大，有 22,000 条记录和大量 NA，但在某些情况下，每行只有一条，这意味着问题不大。

我通过使用lubridate::hms 将时间转换为秒来标准化数据。例如，我想通过取新计算字段Emergency$ORD-IA 的平均值并将其添加到“ORD”值来替换“MOB”的缺失值，但我不知道该怎么做。我需要循环遍历每一行并将平均值添加到我认为的 NA 值之前的列中。

这是我在这里的第一篇文章，非常感谢所有帮助！

dput(head(Ambulance, 20))

结构（列表（日期=结构（c（1L，1L，1L，1L，1L，1L，1L， 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("01/01/2013", “01/01/2014”、“01/01/2015”、“01/02/2013”、“01/02/2014”、“01/02/2015”、 “01/03/2013”、“01/03/2014”、“01/03/2015”、“01/04/2013”、“01/04/2014”、 “01/04/2015”、“01/05/2013”、“01/05/2014”、“01/05/2015”、“01/06/2013”、 “01/06/2014”、“01/06/2015”、“01/07/2013”、“01/07/2014”、“01/07/2015”、 “01/08/2013”、“01/08/2014”、“01/08/2015”、“01/09/2013”、“01/09/2014”、 “2015 年 1 月 9 日”、“2013 年 1 月 10 日”、“2014 年 1 月 10 日”、“2015 年 1 月 10 日”、“2013 年 1 月 11 日”、 “2014 年 1 月 11 日”、“2015 年 1 月 11 日”、“2013 年 1 月 12 日”、“2014 年 1 月 12 日”、“2015 年 1 月 12 日”、 “02/01/2013”、“02/01/2014”、“02/01/2015”、“02/02/2013”、“02/02/2014”、 “02/02/2015”、“02/03/2013”、“02/03/2014”、“02/03/2015”、“02/04/2013”、 “02/04/2014”、“02/04/2015”、“02/05/2013”、“02/05/2014”、“02/05/2015”、 “02/06/2013”、“02/06/2014”、“02/06/2015”、“02/07/2013”、“02/07/2014”、 “02/07/2015”、“02/08/2013”、“02/08/2014”、“02/08/2015”、“02/09/2013”、 “2014 年 2 月 9 日”、“2015 年 2 月 9 日”、“2013 年 2 月 10 日”、“2014 年 2 月 10 日”、“2015 年 2 月 10 日”、 “2013 年 2 月 11 日”、“2014 年 2 月 11 日”、“2015 年 2 月 11 日”、“2013 年 2 月 12 日”、“2014 年 2 月 12 日”、 “02/12/2015”、“03/01/2013”、“03/01/2014”、“03/01/2015”、“03/02/2013”、 “03/02/2014”、“03/02/2015”、“03/03/2013”、“03/03/2014”、“03/03/2015”、 “03/04/2013”、“03/04/2014”、“03/04/2015”、“03/05/2013”、“03/05/2014”、 “03/05/2015”、“03/06/2013”、“03/06/2014”、“03/06/2015”、“03/07/2013”、 “03/07/2014”、“03/07/2015”、“03/08/2013”、“03/08/2014”、“03/08/2015”、 “03/09/2013”、“03/09/2014”、“03/09/2015”、“03/10/2013”、“03/10/2014”、 “2015 年 3 月 10 日”、“2013 年 3 月 11 日”、“2014 年 3 月 11 日”、“2015 年 3 月 11 日”、“2013 年 3 月 12 日”、 “03/12/2014”、“03/12/2015”、“04/01/2013”、“04/01/2014”、“04/01/2015”、 “04/02/2013”、“04/02/2014”、“04/02/2015”、“04/03/2013”、“04/03/2014”、 “04/03/2015”、“04/04/2013”、“04/04/2014”、“04/04/2015”、“04/05/2013”、 “04/05/2014”、“04/05/2015”、“04/06/2013”、“04/06/2014”、“04/06/2015”、 “04/07/2013”、“04/07/2014”、“04/07/2015”、“04/08/2013”、“04/08/2014”、 “04/08/2015”、“04/09/2013”、“04/09/2014”、“04/09/2015”、“04/10/2013”、 “2014 年 4 月 10 日”、“2015 年 4 月 10 日”、“2013 年 4 月 11 日”、“2014 年 4 月 11 日”、“2015 年 4 月 11 日”、 “2013 年 4 月 12 日”、“2014 年 4 月 12 日”、“2015 年 4 月 12 日”、“2013 年 5 月 1 日”、“2014 年 5 月 1 日”、 “05/01/2015”、“05/02/2013”、“05/02/2014”、“05/02/2015”、“05/03/2013”、 “05/03/2014”、“05/03/2015”、“05/04/2013”、“05/04/2014”、“05/04/2015”、 “05/05/2013”、“05/05/2014”、“05/05/2015”、“05/06/2013”、“05/06/2014”、 “05/06/2015”、“05/07/2013”、“05/07/2014”、“05/07/2015”、“05/08/2013”、 “05/08/2014”、“05/08/2015”、“05/09/2013”、“05/09/2014”、“05/09/2015”、 “2013 年 5 月 10 日”、“2014 年 5 月 10 日”、“2015 年 5 月 10 日”、“2013 年 5 月 11 日”、“2014 年 5 月 11 日”、 “2015 年 5 月 11 日”、“2013 年 5 月 12 日”、“2014 年 5 月 12 日”、“2015 年 5 月 12 日”、“2013 年 6 月 1 日”、 “06/01/2014”、“06/01/2015”、“06/02/2013”、“06/02/2014”、“06/02/2015”、 “06/03/2013”、“06/03/2014”、“06/03/2015”、“06/04/2013”、“06/04/2014”、 “06/04/2015”、“06/05/2013”、“06/05/2014”、“06/05/2015”、“06/06/2013”、 “06/06/2014”、“06/06/2015”、“06/07/2013”、“06/07/2014”、“06/07/2015”、 “06/08/2013”、“06/08/2014”、“06/08/2015”、“06/09/2013”、“06/09/2014”、 “2015 年 6 月 9 日”、“2013 年 6 月 10 日”、“2014 年 6 月 10 日”、“2015 年 6 月 10 日”、“2013 年 6 月 11 日”、 “2014 年 6 月 11 日”、“2015 年 6 月 11 日”、“2013 年 6 月 12 日”、“2014 年 6 月 12 日”、“2015 年 6 月 12 日”、 “07/01/2013”、“07/01/2014”、“07/01/2015”、“07/02/2013”、“07/02/2014”、 “07/02/2015”、“07/03/2013”、“07/03/2014”、“07/03/2015”、“07/04/2013”、 “07/04/2014”、“07/04/2015”、“07/05/2013”、“07/05/2014”、“07/05/2015”、 “07/06/2013”、“07/06/2014”、“07/06/2015”、“07/07/2013”、“07/07/2014”、 “07/07/2015”、“07/08/2013”、“07/08/2014”、“07/08/2015”、“07/09/2013”、 “2014 年 7 月 9 日”、“2015 年 7 月 9 日”、“2013 年 7 月 10 日”、“2014 年 7 月 10 日”、“2015 年 7 月 10 日”、 “2013 年 7 月 11 日”、“2014 年 7 月 11 日”、“2015 年 7 月 11 日”、“2013 年 7 月 12 日”、“2014 年 7 月 12 日”、 “2015 年 7 月 12 日”、“2013 年 8 月 1 日”、“2014 年 8 月 1 日”、“2015 年 8 月 1 日”、“2013 年 8 月 2 日”、 “08/02/2014”、“08/02/2015”、“08/03/2013”、“08/03/2014”、“08/03/2015”、 “08/04/2013”、“08/04/2014”、“08/04/2015”、“08/05/2013”、“08/05/2014”、 “08/05/2015”、“08/06/2013”、“08/06/2014”、“08/06/2015”、“08/07/2013”、 “08/07/2014”、“08/07/2015”、“08/08/2013”、“08/08/2014”、“08/08/2015”、 “08/09/2013”、“08/09/2014”、“08/09/2015”、“08/10/2013”、“08/10/2014”、 “2015 年 8 月 10 日”、“2013 年 8 月 11 日”、“2014 年 8 月 11 日”、“2015 年 8 月 11 日”、“2013 年 8 月 12 日”、 “2014 年 8 月 12 日”、“2015 年 8 月 12 日”、“2013 年 9 月 1 日”、“2014 年 9 月 1 日”、“2015 年 9 月 1 日”、 “09/02/2013”、“09/02/2014”、“09/02/2015”、“09/03/2013”、“09/03/2014”、 “09/03/2015”、“09/04/2013”、“09/04/2014”、“09/04/2015”、“09/05/2013”、 “09/05/2014”、“09/05/2015”、“09/06/2013”、“09/06/2014”、“09/06/2015”、 “09/07/2013”、“09/07/2014”、“09/07/2015”、“09/08/2013”、“09/08/2014”、 “09/08/2015”、“09/09/2013”、“09/09/2014”、“09/09/2015”、“09/10/2013”、 “2014 年 9 月 10 日”、“2015 年 9 月 10 日”、“2013 年 9 月 11 日”、“2014 年 9 月 11 日”、“2015 年 9 月 11 日”、 “2013 年 9 月 12 日”、“2014 年 9 月 12 日”、“2015 年 9 月 12 日”、“2013 年 10 月 1 日”、“2014 年 10 月 1 日”、 “10/01/2015”、“10/02/2013”、“10/02/2014”、“10/02/2015”、“10/03/2013”、 “10/03/2014”、“10/03/2015”、“10/04/2013”、“10/04/2014”、“10/04/2015”、 “10/05/2013”、“10/05/2014”、“10/05/2015”、“10/06/2013”、“10/06/2014”、 “10/06/2015”、“10/07/2013”、“10/07/2014”、“10/07/2015”、“10/08/2013”、 “10/08/2014”、“10/08/2015”、“10/09/2013”、“10/09/2014”、“10/09/2015”、 “10/10/2013”、“10/10/2014”、“10/10/2015”、“10/11/2013”、“10/11/2014”、 “10/11/2015”、“10/12/2013”、“10/12/2014”、“10/12/2015”、“11/01/2013”、 “2014 年 11 月 1 日”、“2015 年 11 月 1 日”、“2013 年 11 月 2 日”、“2014 年 11 月 2 日”、“2015 年 11 月 2 日”、 “11/03/2013”、“11/03/2014”、“11/03/2015”、“11/04/2013”、“11/04/2014”、 “11/04/2015”、“11/05/2013”、“11/05/2014”、“11/05/2015”、“11/06/2013”、 “11/06/2014”、“11/06/2015”、“11/07/2013”、“11/07/2014”、“11/07/2015”、 “11/08/2013”、“11/08/2014”、“11/08/2015”、“11/09/2013”、“11/09/2014”、 “2015 年 11 月 9 日”、“2013 年 11 月 10 日”、“2014 年 11 月 10 日”、“2015 年 11 月 10 日”、“2013 年 11 月 11 日”、 “2014 年 11 月 11 日”、“2015 年 11 月 11 日”、“2013 年 11 月 12 日”、“2014 年 11 月 12 日”、“2015 年 11 月 12 日”、 “12/01/2013”、“12/01/2014”、“12/01/2015”、“12/02/2013”、“12/02/2014”、 “12/02/2015”、“12/03/2013”、“12/03/2014”、“12/03/2015”、“12/04/2013”、 “12/04/2014”、“12/04/2015”、“12/05/2013”、“12/05/2014”、“12/05/2015”、 “12/06/2013”、“12/06/2014”、“12/06/2015”、“12/07/2013”、“12/07/2014”、 “12/07/2015”、“12/08/2013”、“12/08/2014”、“12/08/2015”、“12/09/2013”、 “12/09/2014”、“12/09/2015”、“12/10/2013”、“12/10/2014”、“12/10/2015”、 “12/11/2013”、“12/11/2014”、“12/11/2015”、“12/12/2013”、“12/12/2014”、 “12/12/2015”、“13/01/2013”、“13/01/2014”、“13/01/2015”、“13/02/2013”、 “13/02/2014”、“13/02/2015”、“13/03/2013”、“13/03/2014”、“13/03/2015”、 “13/04/2013”、“13/04/2014”、“13/04/2015”、“13/05/2013”、“13/05/2014”、 “13/05/2015”、“13/06/2013”、“13/06/2014”、“13/06/2015”、“13/07/2013”、 “2014 年 7 月 13 日”、“2015 年 7 月 13 日”、“2013 年 8 月 13 日”、“2014 年 8 月 13 日”、“2015 年 8 月 13 日”、 “13/09/2013”、“13/09/2014”、“13/09/2015”、“13/10/2013”、“13/10/2014”、 “13/10/2015”、“13/11/2013”、“13/11/2014”、“13/11/2015”、“13/12/2013”、 “13/12/2014”、“13/12/2015”、“14/01/2013”、“14/01/2014”、“14/01/2015”、 “14/02/2013”、“14/02/2014”、“14/02/2015”、“14/03/2013”、“14/03/2014”、 “14/03/2015”、“14/04/2013”、“14/04/2014”、“14/04/2015”、“14/05/2013”、 “14/05/2014”、“14/05/2015”、“14/06/2013”、“14/06/2014”、“14/06/2015”、 “2013 年 7 月 14 日”、“2014 年 7 月 14 日”、“2015 年 7 月 14 日”、“2013 年 8 月 14 日”、“2014 年 8 月 14 日”、 “2015 年 8 月 14 日”、“2013 年 9 月 14 日”、“2014 年 9 月 14 日”、“2015 年 9 月 14 日”、“2013 年 10 月 14 日”、 “14/10/2014”、“14/10/2015”、“14/11/2013”、“14/11/2014”、“14/11/2015”、 “14/12/2013”、“14/12/2014”、“14/12/2015”、“15/01/2013”、“15/01/2014”、 “15/01/2015”、“15/02/2013”、“15/02/2014”、“15/02/2015”、“15/03/2013”、 “2014 年 3 月 15 日”、“2015 年 3 月 15 日”、“2013 年 4 月 15 日”、“2014 年 4 月 15 日”、“2015 年 4 月 15 日”、 “15/05/2013”、“15/05/2014”、“15/05/2015”、“15/06/2013”、“15/06/2014”、 “2015 年 6 月 15 日”、“2013 年 7 月 15 日”、“2014 年 7 月 15 日”、“2015 年 7 月 15 日”、“2013 年 8 月 15 日”、 “2014 年 8 月 15 日”、“2015 年 8 月 15 日”、“2013 年 9 月 15 日”、“2014 年 9 月 15 日”、“2015 年 9 月 15 日”、 “15/10/2013”、“15/10/2014”、“15/10/2015”、“15/11/2013”、“15/11/2014”、 “15/11/2015”、“15/12/2013”、“15/12/2014”、“15/12/2015”、“16/01/2013”、 “16/01/2014”、“16/01/2015”、“16/02/2013”、“16/02/2014”、“16/02/2015”、 “16/03/2013”、“16/03/2014”、“16/03/2015”、“16/04/2013”、“16/04/2014”、 “16/04/2015”、“16/05/2013”、“16/05/2014”、“16/05/2015”、“16/06/2013”、 “16/06/2014”、“16/06/2015”、“16/07/2013”、“16/07/2014”、“16/07/2015”、 “2013 年 8 月 16 日”、“2014 年 8 月 16 日”、“2015 年 8 月 16 日”、“2013 年 9 月 16 日”、“2014 年 9 月 16 日”、 “16/09/2015”、“16/10/2013”、“16/10/2014”、“16/10/2015”、“16/11/2013”、 “16/11/2014”、“16/11/2015”、“16/12/2013”、“16/12/2014”、“16/12/2015”、 “17/01/2013”、“17/01/2014”、“17/01/2015”、“17/02/2013”、“17/02/2014”、 “17/02/2015”、“17/03/2013”、“17/03/2014”、“17/03/2015”、“17/04/2013”、 “17/04/2014”、“17/04/2015”、“17/05/2013”、“17/05/2014”、“17/05/2015”、 “2013 年 6 月 17 日”、“2014 年 6 月 17 日”、“2015 年 6 月 17 日”、“2013 年 7 月 17 日”、“2014 年 7 月 17 日”、 “2015 年 7 月 17 日”、“2013 年 8 月 17 日”、“2014 年 8 月 17 日”、“2015 年 8 月 17 日”、“2013 年 9 月 17 日”、 “2014 年 9 月 17 日”、“2015 年 9 月 17 日”、“2013 年 10 月 17 日”、“2014 年 10 月 17 日”、“2015 年 10 月 17 日”、 “17/11/2013”、“17/11/2014”、“17/11/2015”、“17/12/2013”、“17/12/2014”、 “17/12/2015”、“18/01/2013”、“18/01/2014”、“18/01/2015”、“18/02/2013”、 “2014 年 2 月 18 日”、“2015 年 2 月 18 日”、“2013 年 3 月 18 日”、“2014 年 3 月 18 日”、“2015 年 3 月 18 日”、 “18/04/2013”、“18/04/2014”、“18/04/2015”、“18/05/2013”、“18/05/2014”、 “18/05/2015”、“18/06/2013”、“18/06/2014”、“18/06/2015”、“18/07/2013”、 “2014 年 7 月 18 日”、“2015 年 7 月 18 日”、“2013 年 8 月 18 日”、“2014 年 8 月 18 日”、“2015 年 8 月 18 日”、 “2013 年 9 月 18 日”、“2014 年 9 月 18 日”、“2015 年 9 月 18 日”、“2013 年 10 月 18 日”、“2014 年 10 月 18 日”、 “18/10/2015”、“18/11/2013”、“18/11/2014”、“18/11/2015”、“18/12/2013”、 “18/12/2014”、“18/12/2015”、“19/01/2013”、“19/01/2014”、“19/01/2015”、 “19/02/2013”、“19/02/2014”、“19/02/2015”、“19/03/2013”、“19/03/2014”、 “2015 年 3 月 19 日”、“2013 年 4 月 19 日”、“2014 年 4 月 19 日”、“2015 年 4 月 19 日”、“2013 年 5 月 19 日”、 “19/05/2014”、“19/05/2015”、“19/06/2013”、“19/06/2014”、“19/06/2015”、 “2013 年 7 月 19 日”、“2014 年 7 月 19 日”、“2015 年 7 月 19 日”、“2013 年 8 月 19 日”、“2014 年 8 月 19 日”、 “2015 年 8 月 19 日”、“2013 年 9 月 19 日”、“2014 年 9 月 19 日”、“2015 年 9 月 19 日”、“2013 年 10 月 19 日”、 “19/10/2014”、“19/10/2015”、“19/11/2013”、“19/11/2014”、“19/11/2015”、 “19/12/2013”、“19/12/2014”、“19/12/2015”、“20/01/2013”、“20/01/2014”、 “2015 年 1 月 20 日”、“2013 年 2 月 20 日”、“2014 年 2 月 20 日”、“2015 年 2 月 20 日”、“2013 年 3 月 20 日”、 “20/03/2014”、“20/03/2015”、“20/04/2013”、“20/04/2014”、“20/04/2015”、 “2013 年 5 月 20 日”、“2014 年 5 月 20 日”、“2015 年 5 月 20 日”、“2013 年 6 月 20 日”、“2014 年 6 月 20 日”、 “20/06/2015”、“20/07/2013”、“20/07/2014”、“20/07/2015”、“20/08/2013”、 “2014 年 8 月 20 日”、“2015 年 8 月 20 日”、“2013 年 9 月 20 日”、“2014 年 9 月 20 日”、“2015 年 9 月 20 日”、 “20/10/2013”、“20/10/2014”、“20/10/2015”、“20/11/2013”、“20/11/2014”、 “2015 年 11 月 20 日”、“2013 年 12 月 20 日”、“2014 年 12 月 20 日”、“2015 年 12 月 20 日”、“2013 年 1 月 21 日”、 “21/01/2014”、“21/01/2015”、“21/02/2013”、“21/02/2014”、“21/02/2015”、 “2013 年 3 月 21 日”、“2014 年 3 月 21 日”、“2015 年 3 月 21 日”、“2013 年 4 月 21 日”、“2014 年 4 月 21 日”、 “2015 年 4 月 21 日”、“2013 年 5 月 21 日”、“2014 年 5 月 21 日”、“2015 年 5 月 21 日”、“2013 年 6 月 21 日”、 “2014 年 6 月 21 日”、“2015 年 6 月 21 日”、“2013 年 7 月 21 日”、“2014 年 7 月 21 日”、“2015 年 7 月 21 日”、 “2013 年 8 月 21 日”、“2014 年 8 月 21 日”、“2015 年 8 月 21 日”、“2013 年 9 月 21 日”、“2014 年 9 月 21 日”、 “21/09/2015”、“21/10/2013”、“21/10/2014”、“21/10/2015”、“21/11/2013”、 “21/11/2014”、“21/11/2015”、“21/12/2013”、“21/12/2014”、“21/12/2015”、 “2013 年 1 月 22 日”、“2014 年 1 月 22 日”、“2015 年 1 月 22 日”、“2013 年 2 月 22 日”、“2014 年 2 月 22 日”、 “2015 年 2 月 22 日”、“2013 年 3 月 22 日”、“2014 年 3 月 22 日”、“2015 年 3 月 22 日”、“2013 年 4 月 22 日”、 “2014 年 4 月 22 日”、“2015 年 4 月 22 日”、“2013 年 5 月 22 日”、“2014 年 5 月 22 日”、“2015 年 5 月 22 日”、 “2013 年 6 月 22 日”、“2014 年 6 月 22 日”、“2015 年 6 月 22 日”、“2013 年 7 月 22 日”、“2014 年 7 月 22 日”、 “2015 年 7 月 22 日”、“2013 年 8 月 22 日”、“2014 年 8 月 22 日”、“2015 年 8 月 22 日”、“2013 年 9 月 22 日”、 “22/09/2014”、“22/09/2015”、“22/10/2013”、“22/10/2014”、“22/10/2015”、 “22/11/2013”、“22/11/2014”、“22/11/2015”、“22/12/2013”、“22/12/2014”、 “2015 年 12 月 22 日”、“2013 年 1 月 23 日”、“2014 年 1 月 23 日”、“2015 年 1 月 23 日”、“2013 年 2 月 23 日”、 “2014 年 2 月 23 日”、“2015 年 2 月 23 日”、“2013 年 3 月 23 日”、“2014 年 3 月 23 日”、“2015 年 3 月 23 日”、 “2013 年 4 月 23 日”、“2014 年 4 月 23 日”、“2015 年 4 月 23 日”、“2013 年 5 月 23 日”、“2014 年 5 月 23 日”、 “2015 年 5 月 23 日”、“2013 年 6 月 23 日”、“2014 年 6 月 23 日”、“2015 年 6 月 23 日”、“2013 年 7 月 23 日”、 “2014 年 7 月 23 日”、“2015 年 7 月 23 日”、“2013 年 8 月 23 日”、“2014 年 8 月 23 日”、“2015 年 8 月 23 日”、 “2013 年 9 月 23 日”、“2014 年 9 月 23 日”、“2015 年 9 月 23 日”、“2013 年 10 月 23 日”、“2014 年 10 月 23 日”、 “2015 年 10 月 23 日”、“2013 年 11 月 23 日”、“2014 年 11 月 23 日”、“2015 年 11 月 23 日”、“2013 年 12 月 23 日”、 “2014 年 12 月 23 日”、“2015 年 12 月 23 日”、“2013 年 1 月 24 日”、“2014 年 1 月 24 日”、“2015 年 1 月 24 日”、 “2013 年 2 月 24 日”、“2014 年 2 月 24 日”、“2015 年 2 月 24 日”、“2013 年 3 月 24 日”、“2014 年 3 月 24 日”、 “2015 年 3 月 24 日”、“2013 年 4 月 24 日”、“2014 年 4 月 24 日”、“2015 年 4 月 24 日”、“2013 年 5 月 24 日”、 “2014 年 5 月 24 日”、“2015 年 5 月 24 日”、“2013 年 6 月 24 日”、“2014 年 6 月 24 日”、“2015 年 6 月 24 日”、 “2013 年 7 月 24 日”、“2014 年 7 月 24 日”、“2015 年 7 月 24 日”、“2013 年 8 月 24 日”、“2014 年 8 月 24 日”、 “2015 年 8 月 24 日”、“2013 年 9 月 24 日”、“2014 年 9 月 24 日”、“2015 年 9 月 24 日”、“2013 年 10 月 24 日”、 “2014 年 10 月 24 日”、“2015 年 10 月 24 日”、“2013 年 11 月 24 日”、“2014 年 11 月 24 日”、“2015 年 11 月 24 日”、 “2013 年 12 月 24 日”、“2014 年 12 月 24 日”、“2015 年 12 月 24 日”、“2013 年 1 月 25 日”、“2014 年 1 月 25 日”、 “25/01/2015”、“25/02/2013”、“25/02/2014”、“25/02/2015”、“25/03/2013”、 “2014 年 3 月 25 日”、“2015 年 3 月 25 日”、“2013 年 4 月 25 日”、“2014 年 4 月 25 日”、“2015 年 4 月 25 日”、 “25/05/2013”、“25/05/2014”、“25/05/2015”、“25/06/2013”、“25/06/2014”、 “2015 年 6 月 25 日”、“2013 年 7 月 25 日”、“2014 年 7 月 25 日”、“2015 年 7 月 25 日”、“2013 年 8 月 25 日”、 “2014 年 8 月 25 日”、“2015 年 8 月 25 日”、“2013 年 9 月 25 日”、“2014 年 9 月 25 日”、“2015 年 9 月 25 日”、 “2013 年 10 月 25 日”、“2014 年 10 月 25 日”、“2015 年 10 月 25 日”、“2013 年 11 月 25 日”、“2014 年 11 月 25 日”、 “2015 年 11 月 25 日”、“2013 年 12 月 25 日”、“2014 年 12 月 25 日”、“2015 年 12 月 25 日”、“2013 年 1 月 26 日”、 “2014 年 1 月 26 日”、“2015 年 1 月 26 日”、“2013 年 2 月 26 日”、“2014 年 2 月 26 日”、“2015 年 2 月 26 日”、 “26/03/2013”、“26/03/2014”、“26/03/2015”、“26/04/2013”、“26/04/2014”、 “26/04/2015”、“26/05/2013”、“26/05/2014”、“26/05/2015”、“26/06/2013”、 “2014 年 6 月 26 日”、“2015 年 6 月 26 日”、“2013 年 7 月 26 日”、“2014 年 7 月 26 日”、“2015 年 7 月 26 日”、 “2013 年 8 月 26 日”、“2014 年 8 月 26 日”、“2015 年 8 月 26 日”、“2013 年 9 月 26 日”、“2014 年 9 月 26 日”、 “2015 年 9 月 26 日”、“2013 年 10 月 26 日”、“2014 年 10 月 26 日”、“2015 年 10 月 26 日”、“2013 年 11 月 26 日”、 “26/11/2014”、“26/11/2015”、“26/12/2013”、“26/12/2014”、“26/12/2015”、 “2013 年 1 月 27 日”、“2014 年 1 月 27 日”、“2015 年 1 月 27 日”、“2013 年 2 月 27 日”、“2014 年 2 月 27 日”、 “2015 年 2 月 27 日”、“2013 年 3 月 27 日”、“2014 年 3 月 27 日”、“2015 年 3 月 27 日”、“2013 年 4 月 27 日”、 “2014 年 4 月 27 日”、“2015 年 4 月 27 日”、“2013 年 5 月 27 日”、“2014 年 5 月 27 日”、“2015 年 5 月 27 日”、 “2013 年 6 月 27 日”、“2014 年 6 月 27 日”、“2015 年 6 月 27 日”、“2013 年 7 月 27 日”、“2014 年 7 月 27 日”、 “2015 年 7 月 27 日”、“2013 年 8 月 27 日”、“2014 年 8 月 27 日”、“2015 年 8 月 27 日”、“2013 年 9 月 27 日”、 “2014 年 9 月 27 日”、“2015 年 9 月 27 日”、“2013 年 10 月 27 日”、“2014 年 10 月 27 日”、“2015 年 10 月 27 日”、 “2013 年 11 月 27 日”、“2014 年 11 月 27 日”、“2015 年 11 月 27 日”、“2013 年 12 月 27 日”、“2014 年 12 月 27 日”、 “2015 年 12 月 27 日”、“2013 年 1 月 28 日”、“2014 年 1 月 28 日”、“2015 年 1 月 28 日”、“2013 年 2 月 28 日”、 “2014 年 2 月 28 日”、“2015 年 2 月 28 日”、“2013 年 3 月 28 日”、“2014 年 3 月 28 日”、“2015 年 3 月 28 日”、 “2013 年 4 月 28 日”、“2014 年 4 月 28 日”、“2015 年 4 月 28 日”、“2013 年 5 月 28 日”、“2014 年 5 月 28 日”、 “2015 年 5 月 28 日”、“2013 年 6 月 28 日”、“2014 年 6 月 28 日”、“2015 年 6 月 28 日”、“2013 年 7 月 28 日”、 “2014 年 7 月 28 日”、“2015 年 7 月 28 日”、“2013 年 8 月 28 日”、“2014 年 8 月 28 日”、“2015 年 8 月 28 日”、 “2013 年 9 月 28 日”、“2014 年 9 月 28 日”、“2015 年 9 月 28 日”、“2013 年 10 月 28 日”、“2014 年 10 月 28 日”、 “2015 年 10 月 28 日”、“2013 年 11 月 28 日”、“2014 年 11 月 28 日”、“2015 年 11 月 28 日”、“2013 年 12 月 28 日”、 “2014 年 12 月 28 日”、“2015 年 12 月 28 日”、“2013 年 1 月 29 日”、“2014 年 1 月 29 日”、“2015 年 1 月 29 日”、 “2013 年 3 月 29 日”、“2014 年 3 月 29 日”、“2015 年 3 月 29 日”、“2013 年 4 月 29 日”、“2014 年 4 月 29 日”、 “2015 年 4 月 29 日”、“2013 年 5 月 29 日”、“2014 年 5 月 29 日”、“2015 年 5 月 29 日”、“2013 年 6 月 29 日”、 “2014 年 6 月 29 日”、“2015 年 6 月 29 日”、“2013 年 7 月 29 日”、“2014 年 7 月 29 日”、“2015 年 7 月 29 日”、 “2013 年 8 月 29 日”、“2014 年 8 月 29 日”、“2015 年 8 月 29 日”、“2013 年 9 月 29 日”、“2014 年 9 月 29 日”、 “2015 年 9 月 29 日”、“2013 年 10 月 29 日”、“2014 年 10 月 29 日”、“2015 年 10 月 29 日”、“2013 年 11 月 29 日”、 “2014 年 11 月 29 日”、“2015 年 11 月 29 日”、“2013 年 12 月 29 日”、“2014 年 12 月 29 日”、“2015 年 12 月 29 日”、 “30/01/2013”、“30/01/2014”、“30/01/2015”、“30/03/2013”、“30/03/2014”、 “30/03/2015”、“30/04/2013”、“30/04/2014”、“30/04/2015”、“30/05/2013”、 “2014 年 5 月 30 日”、“2015 年 5 月 30 日”、“2013 年 6 月 30 日”、“2014 年 6 月 30 日”、“2015 年 6 月 30 日”、 “2013 年 7 月 30 日”、“2014 年 7 月 30 日”、“2015 年 7 月 30 日”、“2013 年 8 月 30 日”、“2014 年 8 月 30 日”、 “2015 年 8 月 30 日”、“2013 年 9 月 30 日”、“2014 年 9 月 30 日”、“2015 年 9 月 30 日”、“2013 年 10 月 30 日”、 “30/10/2014”、“30/10/2015”、“30/11/2013”、“30/11/2014”、“30/11/2015”、 “2013 年 12 月 30 日”、“2014 年 12 月 30 日”、“2015 年 12 月 30 日”、“2013 年 1 月 31 日”、“2014 年 1 月 31 日”、 “2015 年 1 月 31 日”、“2013 年 3 月 31 日”、“2014 年 3 月 31 日”、“2015 年 3 月 31 日”、“2013 年 5 月 31 日”、 “2014 年 5 月 31 日”、“2015 年 5 月 31 日”、“2013 年 7 月 31 日”、“2014 年 7 月 31 日”、“2015 年 7 月 31 日”、 “2013 年 8 月 31 日”、“2014 年 8 月 31 日”、“2015 年 8 月 31 日”、“2013 年 10 月 31 日”、“2014 年 10 月 31 日”、 “31/10/2015”、“31/12/2013”、“31/12/2014”、“31/12/2015”）、class= “因子”）、 Station.Area =结构（c（16L，17L，7L，17L，17L，16L，16L， 17L, 17L, 3L, 17L, 7L, 7L, 3L, 13L, 16L, 17L, 8L, 8L, 8L), .Label = c("Balbriggan", “Blanchardstown”、“Dolphins Barn”、“Donny*”、“Dun Laoghaire”、 “邓绍克林”、“芬格拉斯”、“基尔巴拉克”、“MH14”、“MH17”、 “North Strand”、“Phibsborough”、“Rathfarnham”、“Skerries”、 “剑”、“塔拉特”、“塔拉街”）、class= “因子”）、Clinical.Status = 结构（c（12L， 4L, 9L, 4L, 2L, 9L, 15L, 9L, 7L, 4L, 9L, 9L, 2L, 9L, 12L, 7L, 7L, 9L, 9L, 4L), .Label = c("A", "Alpha", "B", "Bravo", “BRAVO”、“C”、“查理”、“D”、“Delta”、“E”、“Echo”、“非 ProQa 类”、 “未分类”，“O”，“Omega”），class=“因子”），TOC = c（129， 161、832、418、896、990、913、1785、2198、1985、2529、2536、 2657, 3285, 3520, 3546, 3958, 4100, 4166, 4177), ORD = c(254, 881、986、1353、1405、1590、1750、2007、2347、2545、2657、 2681, 2835, 3498, 3633, 3728, 4103, 4141, 4291, 4344), MOB = c(298, 904、1011、1379、1415、1736、1753、2131、2424、2553、2693、 2771、2855、3557、3659、3744、4187、4200、4368、4438)，IA = c(616， 1090、1506、2088、1645、2171、NA、2508、2892、3085、3023、 3120, 3229, 3786, 4106, NA, 4652, 4538, 4561, 5099), LS = c(NA, 北美, 1776, 北美, 2359, 2639, 北美, 北美, 3335, 3750, 北美, 北美, 3462, 4551, NA, 4725, 5222, 4942, 5420, 5786), AH = c(NA, NA, 2255, NA，NA，3283，2575，2966，NA，NA，NA，3867，NA，4799，NA， 5314, 5477, 5233, 5854, 6066), MAV = c(1667, 1252, 2509, 2601、3937、4969、3107、3718、4021、4737、3289、4722、4647、 6291, 4376, 5641, 6287, 4470, 6422, 7616), CD = c(1764, 1367, 2835、2658、4335、5750、3633、3729、4141、5077、3498、5159、 5440, 6392, 4483, 5705, 6735, 6918, 6456, 7942), TOC_ORD = c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), ORD_MOB = c(44, 23, 25, 26, 10, 146, 3, 124, 77, 8, 36, 90, 20, 59, 26, 16, 84, 59, 77, 94), MOB_IA = c(318, 186, 495, 709, 230, 435, 北美, 377, 468, 532, 330, 349, 374, 229, 447, 不适用, 465, 338, 193, 661), IA_LS = c(不适用, 不适用, 270, 不适用, 714, 468, 不适用, 不适用, 443, 665, 不适用, 不适用, 233, 765, 不适用, 不适用, 570, 404, 859, 687), LS_AH = c(NA, NA, 479, NA, NA, 644, NA，NA，NA，NA，NA，NA，NA，248，NA，589，255，291，434， 280), AH_MAV = c(NA, NA, 254, NA, NA, 1686, 532, 752, NA, NA, NA, 855, NA, 1492, NA, 327, 810, -763, 568, 1550), MAV_CD = c(97, 115、326、57、398、781、526、11、120、340、209、437、793、 101, 107, 64, 448, 2448, 34, 326)), .Names = c("Date", "Station.Area", “临床状态”、“TOC”、“ORD”、“MOB”、“IA”、“LS”、“AH”、“MAV”、 “CD”、“TOC_ORD”、“ORD_MOB”、“MOB_IA”、“IA_LS”、“LS_AH”、“AH_MAV”、 "MAV_CD"), row.names = c(NA, 20L), class= "data.frame")

【问题讨论】：

标签： r for-loop time replace missing-data

【解决方案1】：

在我们使用zoo::na.approx 对缺失值进行线性近似之前，这是一种将您的数据从宽格式重新调整为长格式的选项。

用正确的NA 替换"N/A" 值并保存相关的列名（及其顺序）。

Emergency[Emergency == "N/A"] <- NA
col_names <- names(Emergency)

第一步是创建一个idx 列，我们将在arrange 中使用它，然后在我们将spread 数据恢复为宽格式时拥有一个唯一标识符。

library(tidyverse)
library(zoo)
Emergency %>% 
  mutate(idx = row_number()) %>% 
  gather(key, time, TOC:AH) %>% 
  arrange(idx, Station) %>% 
  mutate(date_time = as.POSIXct(paste(Date, time),
                                format = "%d/%m/%y %H:%M:%S")) %>% 
  mutate(date_time = as.POSIXct(na.approx(date_time),
                                origin = '1970-01-01 00:00.00 UTC')) %>% 
  mutate(time = format(date_time, "%H:%M:%S")) %>% #format() gives character
  select(-date_time) %>% 
  spread(key, time) %>% 
  arrange(idx) %>% 
  select(col_names)
#      Date Station      TOC      ORD      MOB       IA       LS       AH
#1 01/01/13      S1 00:02:44 00:04:11 00:04:44 00:04:58 00:05:12 00:05:32
#2 01/01/13      S2 00:03:04 00:03:21 00:03:54 00:04:28 00:04:52 00:05:02
#3 01/01/13      S4 00:04:24 00:04:41 00:04:59 00:05:18 00:05:22 00:05:35
#4 01/01/13      S1 00:04:44 00:04:51 00:05:04 00:05:58 00:06:12 00:06:32

您不需要 3 个 mutate 调用，如果您想以长格式保存数据，则从 spread(...) 开始的部分是可选的。

请注意，创建date_time 列是必要的，因为从TOC 到AH 的所有列都是字符。

数据

Emergency <- structure(list(Date = c("01/01/13", "01/01/13", "01/01/13", "01/01/13"
), Station = c("S1", "S2", "S4", "S1"), TOC = c("00:02:44", "00:03:04", 
"00:04:24", "00:04:44"), ORD = c("00:04:11", "00:03:21", "00:04:41", 
"00:04:51"), MOB = c("00:04:44", "00:03:54", NA, "00:05:04"), 
    IA = c("00:04:58", "00:04:28", "00:05:18", "00:05:58"), LS = c("00:05:12", 
    "00:04:52", "00:05:22", "00:06:12"), AH = c("00:05:32", "00:05:02", 
    "00:05:35", "00:06:32")), .Names = c("Date", "Station", "TOC", 
"ORD", "MOB", "IA", "LS", "AH"), row.names = c(NA, -4L), class = "data.frame")

【讨论】：

嗯，当我应用它时，出现以下错误： mutate_impl(.data, dots) 中的错误：列date_time 的长度必须为 1324968（行数）或一，而不是 0 另外：警告消息：度量变量的属性不相同；他们将被丢弃
你能添加一个更真实的例子吗？在问题的末尾发布dput(head(Emergency, 20)) 的输出。
我试图让我的数据在最初的例子中看起来更简单，我希望这能让它更清楚。本质上，我创建了新的列来测量每列之间的时间距离。我想取这个新创建的列的平均值，首先它将是 TOC_ORD（请记住，我已经将它全部转换为秒）并将这个平均值添加到 NA 值之前的 TOC 值中ORD，因为 ORD 值总是会是一个较晚的时间点。这有意义吗？
这是我需要的解决方案，最终想通了。感谢您的帮助和对发布初期出现的问题表示歉意！ Toc_MOB_mean