我有一个由一系列日期和时间组成的数据集，我的目标是创建一个新变量，该变量的值与第一个日期列最接近（在第一个日期列之前），除非它是NA，在这种情况下，该值最接近（之前）的任意日期。假设我感兴趣的任意日期是2018年1月1日，我需要以下内容：
如果TimeK为NA，则我需要具有最接近（但早于）01/01/2018的相应时间戳的值。
如果TimeK不是NA，则需要具有下一个最接近时间戳记的值（在TimeK和01/01/2018之前）。
TimeK <- c("12/31/2017", NA, "12/01/2017", "12/01/2017", "12/05/2017")
Time1 <- c("01/01/2018", "12/03/2017", "11/17/2018", "11/01/2017",
"12/05/2017")
Value1 <- c( 10, 30, 50, 100, 5)
Time2 <- c("12/28/2017", "12/13/2017", "12/01/2017", "10/01/2017",
"09/12/2017")
Value2 <- c(15, 45, 300, 100, 200)
Time3 <- c("01/08/2018", "12/01/2017", "11/23/2017", "06/01/2017",
"12/31/2017")
Value3 <- c(1, 50, 45, 70, 24)
新变量的预期结果为15,45,45,100,200。