小编Cia*_*ran的帖子

我有两个数据框：“探针”和“事件”。下面的代码将生成这些数据帧的可重现样本。Probes.subset 是 Probes 中所有与 Events 中的日期时间范围相交的观测值的数据框。下面的代码将生成 6 个事件……实际上我有近 200 个谨慎的事件。

目标：我需要将 Events 中的 Event.name 连接到基于时间戳的 Probes.subset 中的每个相应观察，以便每个观察都与正确的事件相关联。

我以前尝试过 FOR 循环，但速度非常慢，并且无法完成，因为我的数据超过 180,000 行。我有一种感觉，这可以通过编写一个函数并使用诸如 apply 之类的东西来解决，但我是 R 中函数的完全新手，而且我创建的函数都不起作用。

library(dplyr)

# Generate Probes data
start <- as.POSIXct("01/06/2016 01:00", format = "%d/%m/%Y %H:%M")
end <- start + as.difftime(1, units = "days")

Timestamp <- seq(from = start, to = end, by = "10 mins")
Value <- round(runif(145) * 100, 2)

Probes <- data.frame(Timestamp, Value)

# Generate Events data
Event.name <- seq(1, 6) …