过滤/删除不正确的行（加上上下）

Question

我有一个大型数据集。 我想删除所有不正确的行。另外，我想删除错误行之前和之后的一些行。

我发现了一些有用的东西。但不幸的是，这对我来说并不奏效。 我想我必须使用＆＃34; rownames＆＃34;但我无法解决它。 所以我感谢任何有用的建议。

. build/envsetup.sh
lunch 
make liblog V=1 

Answer 1

我们获取column等于value的行的索引，并删除索引indx，indx + after和indx - before的行。

extract.with.context <- function(df, column, value, before, after) {
    indx <- which(df[[column]] == value)
    df[-c(indx, indx + after, indx - before), ]
}

extract.with.context(dat, "var2", 0, 1, 1)

#   var1 var2 var3
#1     1    1    3
#2     2    1    3
#3     3    1    3
#9     9    1    3
#14   14    1    3
#15   15    1    3
#16   16    1    3
#20   20    1    3

Answer 2

获得了一些专业帮助：）

toDelete<- c(which(dat$var2==0) , which(dat$var2==0)+1, which(dat$var2==0)-1)
dat <- dat[-toDelete,]

甚至更好（控制没有删除任何内容的情况）

toDelete<- c(which(dat$var2==0) , which(dat$var2==0)+1, which(dat$var2==0)-1)
if (!identical(toDelete,numeric(0))) { dat <- dat[-toDelete,] }