r - 如何在另一列的小时之间进行近似？

Question

如何在另一列的小时之间进行近似？我的代码在几个小时之间增加了一刻钟。然后它为变量 P_ESTYM 近似这些小时之间的值。我还想为 P_INST 列添加一个近似值。怎么做？

aaa <- data.frame(
  time = as.POSIXct(c("2021-05-04 01:00:00", "2021-05-04 02:00:00",
                           "2021-05-04 03:00:00", "2021-05-04 04:00:00", "2021-05-04 05:00:00",
                           "2021-05-04 06:00:00", "2021-05-04 07:00:00", "2021-05-04 08:00:00")),
  P_ESTYM = c(22, 11, 5, 8 , 22, 88, 77, 7),
P_INST = c(2, 3, 4, 9, 8, 7, 7, 3))
aaa <- aaa %>%
  tidyr::uncount(4) %>%
  mutate(time = seq(min(time), by = "15 min", length.out = n()),
         P_ESTYM = P_ESTYM * c(1, NA, NA, NA),
         P_ESTYM = approx(x = time, y = P_ESTYM, xout=time)$y)

标签： rapproximationhourquarter