如何创建这个特殊序列?

时间:2017-08-06 22:02:41

标签: r sequence seq rep

我想创建以下矢量序列。

0 1 0 0 2 0 0 0 3 0 0 0 0 4

我的想法是首先使用0创建rep(),但不确定如何添加1:4

5 个答案:

答案 0 :(得分:8)

创建一个对角矩阵,取上三角形,然后删除第一个元素:

d <- diag(0:4)
d[upper.tri(d, TRUE)][-1L]
# [1] 0 1 0 0 2 0 0 0 3 0 0 0 0 4

如果您更喜欢不进行全局分配的单线程,请将其包装在函数中:

(function() { d <- diag(0:4); d[upper.tri(d, TRUE)][-1L] })()
# [1] 0 1 0 0 2 0 0 0 3 0 0 0 0 4

对于代码高尔夫目的,这是使用上面的d的另一种变体:

d[!lower.tri(d)][-1L]
# [1] 0 1 0 0 2 0 0 0 3 0 0 0 0 4

答案 1 :(得分:5)

reprbind直到他们的旧技巧:

rep(rbind(0,1:4),rbind(1:4,1))
#[1] 0 1 0 0 2 0 0 0 3 0 0 0 0 4

这实际上创建了2个矩阵,一个用于值,另一个用于重复值的次数。 rep并不关心输入是否为矩阵,因为它只会将其展平回到按顺序向下按列的向量。

rbind(0,1:4)
#     [,1] [,2] [,3] [,4]
#[1,]    0    0    0    0
#[2,]    1    2    3    4

rbind(1:4,1)
#     [,1] [,2] [,3] [,4]
#[1,]    1    2    3    4
#[2,]    1    1    1    1

答案 2 :(得分:3)

unlist(lapply(1:4, function(i) c(rep(0,i),i)))

答案 3 :(得分:3)

您可以使用rep()创建一个每个值n + 1的序列:

n <- 4
myseq <- rep(seq_len(n), seq_len(n) + 1)
# [1] 1 1 2 2 2 3 3 3 3 4 4 4 4 4

然后,您可以使用diff()查找所需的元素。您需要在1输出的末尾添加diff(),因为您始终需要最后一个值。

c(diff(myseq), 1)
# [1] 0 1 0 0 1 0 0 0 1 0 0 0 0 1

然后你只需要将原始序列与diff()输出相乘。

myseq <- myseq * c(diff(myseq), 1)
myseq
# [1] 0 1 0 0 2 0 0 0 3 0 0 0 0 4

答案 4 :(得分:2)

# the sequence
s = 1:4

# create zeros vector
vec = rep(0, sum(s+1))

# assign the sequence to the corresponding position in the zeros vector
vec[cumsum(s+1)] <- s

vec
# [1] 0 1 0 0 2 0 0 0 3 0 0 0 0 4

或者更简洁,请使用replace

replace(rep(0, sum(s+1)), cumsum(s+1), s)
# [1] 0 1 0 0 2 0 0 0 3 0 0 0 0 4