行满足条件后删除后续行答案

【问题标题】：Delete subsequent rows after row meets criteria行满足条件后删除后续行
【发布时间】：2013-08-06 14:44:44
【问题描述】：

如何在某行满足条件后删除后续行？例如，使用较小的测试数据集：

##test##
testdata<-cbind(c(1,2,3,4), c(5,6,7,8), (c("05/01/2001","01/04/2001", "02/02/2002",     "02/03/2003")))
colnames(testdata)<-c("x", "y", "DOD")
testdata<-as.data.frame(testdata)
testdata$DOD<-as.Date(testdata$DOD, "%m/%d/%Y")
testtemp<-cbind(c(20,30,40), (c("01/01/2001","01/02/2001", "02/02/2002")))
colnames(testtemp)<-c("TMAX", "DATE")

然后我创建一个更大的数据集：

##########LOOP TO GENERATE DATA##########
collapse<-function(data,temp) 
{
newdata<-data[rep(1:nrow(data),each=nrow(temp)),]
newdata$status = 0
newdata<-cbind(newdata, temp)
newdata$status<-ifelse(newdata$DOD == newdata$DATE, 1, 0)
return(newdata)
}

返回如下内容：

    x y DOD        status TMAX DATE
1   1 5 2001-05-01      0   20 2001-01-01
1.1 1 5 2001-05-01      0   30 2001-01-02
1.2 1 5 2001-05-01      0   40 2002-02-02
2   2 6 2001-01-04      0   20 2001-01-01
2.1 2 6 2001-01-04      0   30 2001-01-02
2.2 2 6 2001-01-04      0   40 2002-02-02
3   3 7 2002-02-02      0   20 2001-01-01
3.1 3 7 2002-02-02      0   30 2001-01-02
3.2 3 7 2002-02-02      1   40 2002-02-02
4   4 8 2003-02-03      0   20 2001-01-01
4.1 4 8 2003-02-03      0   30 2001-01-02
4.2 4 8 2003-02-03      0   40 2002-02-02

我想删除 status=1 之后的所有行，所以在这种情况下是最后三行。

谢谢

【问题讨论】：

标签： r

【解决方案1】：

使用which 和子集查找满足您条件的第一行，如果有匹配条件，则将其子集，否则，什么也不做...

idx <- which( newdata$DOD == newdata$DATE ) 
if( length( idx ) > 0L ) newdata <- newdata[ seq_len( idx ) , ]

【讨论】：