插值并用 NA 替换空单元格

Question

我想线性插值时间序列数据（在数据帧中以 60 秒为步长，如下所示，其中seconds是要插值的变量：

mydf <- data.frame(measurement = c(2,6,4,1,7), other_measurement = c(2,5,8,6,4), seconds = c(60,60,120,360,360))

（实际的数据框比这大很多数量级。）

然后，一旦插入了 60 的中间倍数，我想填充用 NA 生成的单元格。 我找到了一些与此接近的解决方案，例如创建一个 60 倍数的数据框并将其与我的数据框合并，但没有一个解决方案完全有效，并且仍然填充了多列中所有缺失的单元格。 谢谢！

Answer 1

底座 R

newdf <- data.frame(seconds = do.call(seq, c(as.list(range(mydf$seconds)), by = 60)))
merge(mydf, newdf, all = TRUE)
#   seconds measurement other_measurement
# 1      60           2                 2
# 2      60           6                 5
# 3     120           4                 8
# 4     180          NA                NA
# 5     240          NA                NA
# 6     300          NA                NA
# 7     360           1                 6
# 8     360           7                 4

dplyr

library(dplyr)
mydf %>%
  summarize(seconds = seq(min(seconds), max(seconds), by = 60)) %>%
  full_join(mydf, ., by = "seconds")
#   measurement other_measurement seconds
# 1           2                 2      60
# 2           6                 5      60
# 3           4                 8     120
# 4           1                 6     360
# 5           7                 4     360
# 6          NA                NA     180
# 7          NA                NA     240
# 8          NA                NA     300