Question

我有很长的数据框架,可以看上去(尽管该栏的编号有日期):

    df <- data.frame(Type = c(rep("date", times = 100)),
             Day = c(1:100))

在我的耳光中,有一段时期,我想从50到70年,删除每4个牢房中的第三和第四个。

  df <- data.frame(Type = c(rep("date", times = 80)),
             Date = c(1:52,55,56,59,60,63,64,67,68,71:90))

如果不把我想要删除的每个增长指数人工点名,是否有这样做的方法? 任何帮助都会受到非常赞赏!

Answer 1

模块操作员可对此类事情有用。

idx <- 1:1000
idx <- idx[idx < 51 | (idx + 1) %% 4 < 2 | idx > 70]
df <- df[idx, ]

或者,使用消极指数:

idx <- 51:70
idx <- idx[(idx + 1) %% 4 > 1]
df <- df[-idx, ]

根据这两种方法:

#> df[45:75, ]
   Type Day
45 date  45
46 date  46
47 date  47
48 date  48
49 date  49
50 date  50
51 date  51
52 date  52
55 date  55
56 date  56
59 date  59
60 date  60
63 date  63
64 date  64
67 date  67
68 date  68
71 date  71
72 date  72
73 date  73
74 date  74
75 date  75
76 date  76
77 date  77
78 date  78
79 date  79
80 date  80
81 date  81
82 date  82
83 date  83
84 date  84
85 date  85

Answer 2

虽然我更喜欢“@zephryl”的解决办法,但这里是另一种选择,即,如果你要用<条码>删除<条码>/代码>关于<条码>的争论:

df[-unlist(lapply(3:4, (x) seq(50, 70, x)[-1])),]

友情链接