如何创建数据快照并将其放入R中的矩阵中？

这个问题有两个部分：

我有一个数据子集，其中事件发生在我的数据中，我想创建这些事件周围行的快照，特别是我想得到事件前的5行和事件后的4行

然后将不同的快照放入一个矩阵中，以便我可以相互比较不同的事件。任何一方的帮助都将不胜感激

---

考虑到我不知道你的“事件”是什么，本例中我的事件是数据等于10

#Example Data
Row<-(1:20)
Data<-(1:20)

Df<-data.frame(Rows,Data)

#Sub Data based on conditon =10
subdata <- Df[apply(Df[,1:2] == 10, 1, all),]

#Find Row where event happened
OrginPoint<-subdata[1,1]

#Set ranges bsed on event 
LowRange<-OrginPoint-5
HighRange<-OrginPoint+4

#Subset Data -5 rows for orign and +4 rows from orgin
DataRange1<-Df[LowRange:HighRange,1:2]

#示例数据
Row你能提供一个吗？我正在处理的数据是来自发动机的时间序列数据。这些事件是当发动机转速从零变为任何其他正或负数值时发生的。数据集很大，每个文件在27列中有60000个观察值。我现在处理的一个文件大约有500个事件。我想看看引擎启动时的正常运行情况。我处理的数据是来自发动机的时间序列数据。这些事件是当发动机转速从零变为任何其他正或负数值时发生的。数据集很大，每个文件在27列中有60000个观察值。我现在处理的一个文件大约有500个事件。我试着看看引擎启动时的正常运行情况。你需要将这个基本思想实现到一个循环中，然后遍历所有行。您可以通过设置Df[，1:27]来查看所有列，时间序列不应该让事情变得更复杂。您需要做的主要事情是找出如何检查该更改以触发子设置。我会在当天晚些时候有机会更新我的答案。同时用你刚才给我的信息更新你的问题，这将使它更容易理解。祝你好运事件只发生在一列中，但我正在尝试从howl行获取数据。