在日期和重复值附近添加新观察值

编程问答 2022-06-10

问题描述

我有多个与日期相关的观测值，并希望在每个现有日期前后+ -3天添加新观测值，并复制这些天的值。

示例df：

recv()

瞄准df：

library(lubridate)

Time <- c(as_date(17498),as_date(18498),as_date(18298))
Measurement <- c(11,42,28)
df <- data.frame(Time,Measurement)

解决方法

使用tidyverse（尤其是purrr）可以执行此操作... 

map_df(seq_len(nrow(df)),#run through the rows. map_df outputs a dataframe
       ~tibble(Time = seq(df$Time[.]-3,#construct df for that row
                          df$Time[.]+3,1),Measurement = df$Measurement[.]))

# A tibble: 21 x 2
   Time       Measurement
   <date>           <dbl>
 1 2017-11-25          11
 2 2017-11-26          11
 3 2017-11-27          11
 4 2017-11-28          11
 5 2017-11-29          11
 6 2017-11-30          11
 7 2017-12-01          11
 8 2020-08-21          42
 9 2020-08-22          42
10 2020-08-23          42
# ... with 11 more rows
lubridaterr