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

Question

从R中的数据框中删除每个偶数/不均匀行的最优雅方法是什么？我的第一次尝试是“手动”输入每隔一行的数字（见下文）

(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 ,]