如何修复此电子表格公式？

Question

我有一些专辑数据，每个日期都有一些值。如果我找不到特定日期的值，则它应该返回先前的日期值（如果该日期也不可用，则需要提取最近更新的值）。

library(lubridate)  # for working with dates
library(dplyr)      # for manipulating data

df$DeviceTime5min <- floor_date(df$DeviceTime, "5 mins")
df_5min <- df %>% group_by(DeviceTime5min) %>% summarize(mean(Concentration))

如果新的转储添加到现有数据中时，它返回的是假值，则使用上述公式。

https://docs.google.com/spreadsheets/d/1vKvvTj6r1xIrQbINPiWjobircET2CyMOacqSLzNhs8A/edit#gid=452699219

我该如何解决？