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

Question

这个问题有几个部分：

1. 我有一个数据的子集，其中事件发生在我的数据中，我想创建围绕这些事件的行的快照，特别是我希望在事件之前获得5行，之后获得4行。
2. 然后将不同的快照放入矩阵中，以便我可以将不同的事件相互比较。任何部分的任何帮助将不胜感激。

Answer 1

考虑到我不知道你的＆＃34;事件＆＃34;是的，我这个例子的事件是数据等于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]