r - 序列展开题

Question

我有一系列“端点”，例如:

c(7,10,5,11,15)     

我想扩展到端点之间的一系列“耗时”，例如

c( 7 ,1,2,3,4,5,6,7,8,9, 10 ,1,2,3,4, 57 |100 | ,1,2,3,4,5,6,7,8,9,10, 11 ,1,2,3,4,5,6,7,8,9,10, 11,12,13,14, 15 )

在 R 中执行此操作的最有效方法是什么？我正在想象如何创造性地使用 embed功能，但如果不使用丑陋的 for 我就无法到达那里环形。

这是执行此操作的幼稚方法:

expandSequence <- function(x) {
    out <- x[1]
    for (y in (x[-1])) {
        out <- c(out,seq(1,y))
    }
    return(out)
}

expandSequence(c(7,10,5,11,15))

Answer 1

有一个基函数可以做到这一点，调用，等待，sequence :

sequence(c(7,10,5,11,15))

 [1]  1  2  3  4  5  6  7  1  2  3  4  5  6  7  8  9 10  1  2  3  4  5  1  2  3
[26]  4  5  6  7  8  9 10 11  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15

在您的情况下，您的第一个端点似乎实际上不是序列的一部分，因此它变为:

c(7, sequence(c(10,5,11,15)))
 [1]  7  1  2  3  4  5  6  7  8  9 10  1  2  3  4  5  1  2  3  4  5  6  7  8  9
[26] 10 11  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15