从R中的向量元素创建数字序列列表

我有一个数字向量，如下所示：

x <- c(1, 10, 11, 15, 16, 21, 22, 26, 27, 31,
       32, 36, 37, 41, 42, 46, 47, 51, 52, 56)

---

我更喜欢以R为基数的解决方案。

将seq应用于

x

的奇数和偶数定位值：

Map(seq, x[c(TRUE, FALSE)], x[c(FALSE, TRUE)])

这可以写得更简洁，如下所示：

Map(seq, x[!0:1], x[!1:0])

---

我们可以使用

map2

library(purrr)
map2(x[c(TRUE, FALSE)], x[c(FALSE, TRUE)], `:`)

library(purrr)
map2(x[c(TRUE, FALSE)], x[c(FALSE, TRUE)], `:`)