如何在R中创建反序列

Question

我有一个下面的序列有一个不会改变的模式。我可以创建一个向量来表示此模式中缺少的变量（如下所示）。但我似乎无法找到一种方法将下面的特定序列打印为矢量。如何创建一个向量，显示下面的序列但停在特定行（模式中的最后一行），而不是51？谢谢

bad <- seq(1,51,by=3)

2,3,5,6,8,9,11,12,14,15,17,18,20,21,23,24,26,27,29,30,32,33,35,36,38,39,41,42,44,45,47,48,50,51

Answer 1

我能想到的最直接的方法是使用逻辑矢量的“回收”：

(1:51)[c(FALSE, TRUE, TRUE)]
#  [1]  2  3  5  6  8  9 11 12 14 15 17 18 20 21 23 24 26 27 29 30 32 33 35 36 38 39
# [27] 41 42 44 45 47 48 50 51

Answer 2

> bad <- 2:51
> bad[!bad %% 3 == 1]
 [1]  2  3  5  6  8  9 11 12 14 15 17 18 20 21 23 24 26 27 29 30 32 33 35 36 38 39 41 42 44 45 47 48 50 51

Answer 3

a = 2:51
b = seq(1, 51, by=3)
setdiff(a,b)

Answer 4

cumsum(rep(c(2,1), 51/3))

可能效率低下。