从数据集中删除每个偶数（不偶数）行

Question

从 R 中的数据框中删除每个 even/uneven 行的最优雅的方法是什么？我的第一次尝试是输入每隔一行的数字 "by hand"（见下文）

(SmallerDataFrame <- OriginalDataFrame[-c(2,4,6,8,10,12),])

Answer 1

试试这个

dat <- mtcars$cyl
toDelete <- seq(0, length(dat), 2)

toDelete

dat <-  dat[-toDelete, ]

对于数据框，

dat <- mtcars
toDelete <- seq(1, nrow(dat), 2)
dat[ toDelete ,]