R-根据另一个文件中的数据有条件地从一个文件中提取数据

Question

我有两个具有不同频率的不同时间戳数据文件。 我想根据第二个数据文件在（+ _2分钟）范围内的时间戳（YY：DD：MM HH：MM：00）从一个文件（YY：DD：MM HH：MM：SS）中提取数据。 我需要根据第二个数据的每个时间戳值提取数据。

我该如何解决？ 我需要申请循环赛或其他吗？ 我在R中使用xts包和newcomer

Answer 1

您没有提供可复制的示例，因此很难解决您的问题，但是请尝试修改以下代码：

输入 ：来自两个文件的两个data.frames：

df1<-data.frame(ts1=c("18: 24: 03 11: 12: 13","18: 24: 03 11: 20: 13","18: 24: 03 11: 21: 33"),b=c(1,2,3))
df2<-data.frame(ts2=c("18: 24: 03 9: 50: 00","18: 24: 03 11: 20: 00"))
df1
                    ts1 b
1 18: 24: 03 11: 12: 13 1
2 18: 24: 03 11: 20: 13 2
3 18: 24: 03 11: 21: 33 3

df2
                        ts2
    1  18: 24: 03 9: 50: 00
    2 18: 24: 03 11: 20: 00

函数f与间隔日期进行匹配

f<-function(ts,ts2)
{

  out<-(as.POSIXct(ts,format="%y: %d: %m %H: %M: %S")<=as.POSIXct(ts2,format="%y: %d: %m %H: %M: %S")+2*60) & (as.POSIXct(ts,format="%y: %d: %m %H: %M: %S")>=as.POSIXct(ts2,format="%y: %d: %m %H: %M: %S")-2*60)
  return(as.logical(max(out)))
}

您想要的输出 ：

df1[unlist(lapply(as.POSIXct(df1$ts1,format="%y: %d: %m %H: %M: %S"),f,ts2=df2$ts2)),]
                    ts1 b
2 18: 24: 03 11: 20: 13 2
3 18: 24: 03 11: 21: 33 3

显然，这只是一条帮助您实现代码的途径

使用不同的时间戳格式更新 ：

Input:
    df1<-data.frame(a=c(2,5,8,2),ts1=c("2017-10-07 16:51:08.000","2017-10-07 16:51:10.000","2017-10-07 16:52:15.000","2017-10-07 16:53:25.000"))
    df2<-data.frame(ts2=c("2017-10-07 16:50:00","2017-10-07 16:51:00","2017-10-07 16:53:00"))

相同的方法：

f<-function(ts,ts2)
 {

   out<-(as.POSIXct(ts)<=as.POSIXct(ts2)+2*60) & (as.POSIXct(ts)>=as.POSIXct(ts2)-2*60)
   return(as.logical(max(out)))
 }

您的输出：

df1[unlist(lapply(as.POSIXct(df1$ts1),f,ts2=df2$ts2)),]
  a                     ts1
1 2 2017-10-07 16:51:08.000
2 5 2017-10-07 16:51:10.000
3 8 2017-10-07 16:52:15.000
4 2 2017-10-07 16:53:25.000

Answer 2

例如，我们有两个数据表输出数据和输入数据。 定义一个for循环并创建一个窗口（+-2分钟），最后rbind所有数据。

这里w_low = time-2min w_high = time + 2min final = data.table（）for（i in 1：nrow（Output））{t_low <-Output [i，DateTime]-w_low * 60 t_high <-Output_Data [i， DateTime]-w_high * 60

input_subset <-输入[TIMESTAMP> = t_low＆TIMESTAMP <t_high] n = nrow（input_subset）

input_subset [，TIMESTAMP：= difftime（TIMESTAMP，t_low，units =“ secs”）]

input_subset $ output_index <-rep（i，n）final = rbind（OF，input_subset，fill = TRUE）