R - 创建一个奇数序列，后跟相同间隔的偶数序列

Question

所以我基本上是在寻找一种更有效的方法来做到这一点：

c(seq(1, 5, 2), seq(2, 6, 2))

是否有一个更简单的 function 内置于 R 或一些允许我只指定一个间隔（从 1 到 6；而不必指定从 1 到 5 和从 2 到 6）的包中，但是对数字进行排序所有奇数都出现在偶数之前？

Answer 1

只需连接仅包含原始数据奇数的子数据和包含剩余偶数的其他子数据。

在下面，您可以获得原始数据x1 ，它由均值为 8 的泊松分布中的 10 个整数组成（ rpois(n = 10, lambda = 8) ），并合并奇数的子数据（ x1[x1 %% 2 == 1] ）和偶数（ x1[x1 %% 2 == 0] ）。

## To prepare data
x1 <- rpois(n = 10, lambda = 8)
x1

## To sort the data so that odd numbers come earlier
c(x1[x1 %% 2 == 1], x1[x1 %% 2 == 0])

Answer 2

您可以使用sequence 。 function的第一个参数是每个序列的长度， from是起点， by是区间。

sequence(c(3, 3), from = c(1, 2), by = 2)
#[1] 1 3 5 2 4 6

---

或者，作为符合您要求的 function：

seqOrdered <- function(from = 1, to){
  n = ceiling((to - from) / 2)
  sequence(c(n, n), from = c(from, from + 1), by = 2)
}

seqOrdered(1, 6)
#[1] 1 3 5 2 4 6