在R中每y行删除数据帧中的x行

Question

如何删除(例如)每10行中的3行？例如，如果我有一个末尾有100行的dataframe，我需要一个有70行的dataframe (缺少第一行、第二行、第三行、第十一行、第十二行、第十三行等等)。

Answer 1

使用一个有100行的玩具数据帧，尝试如下：

df <- data.frame(x = 1:100, y = 1:100)
rem <- as.vector(sapply(1:3, function(i) seq(i, nrow(df), 10)))
df[-rem, ]

Answer 2

我们可以使用outer来创建一系列要删除的行。

result <- df[-c(outer(seq(1, nrow(df), 10), 0:2, `+`)), ]

Answer 3

我们可以用rep以一种矢量化的方式做到这一点。

i1 <- seq(1, nrow(df), 10)
out <- df[-(rep(0:2, each = length(i1)) + i1),]

数据

df <- data.frame(x = 1:100, y = 1:100)